Ms access MS Access 2010模块案例陈述

Ms access MS Access 2010模块案例陈述,ms-access,vba,select-case,Ms Access,Vba,Select Case,我试图在MS Access 2010 for Birth=5/5/1958中执行以下功能,并获得未知而非Dog的返回值。对这个案子有什么帮助吗 Public Function whichChineseZodiacSign(Birthday As Date) Select Case whichChineseZodiacSign Case #2/18/1958# To #2/7/1959# whichChineseZodiacSign = "Dog" Case Else whic

我试图在MS Access 2010 for Birth=5/5/1958中执行以下功能,并获得未知而非Dog的返回值。对这个案子有什么帮助吗

Public Function whichChineseZodiacSign(Birthday As Date)

Select Case whichChineseZodiacSign
Case #2/18/1958# To #2/7/1959#
    whichChineseZodiacSign = "Dog"

Case Else
    whichChineseZodiacSign = "Unknown"
End Select
End Function
谢谢

试试这个:

Option Explicit

Public Function whichChineseZodiacSign(Birthday As Date) As String

    Select Case Birthday
    Case #2/18/1958# To #2/7/1959#
        whichChineseZodiacSign = "Dog"
    Case Else
        whichChineseZodiacSign = "Unknown"
    End Select

End Function
在您的案例中,选择案例中的条件为false