MS Access 2010 模块案例声明

Question

我正在尝试在 MS Access 2010 中为生日 = 5/5/1958 执行以下功能，并获得“未知”而不是“狗”的返回值。对这个 CASE 语句有帮助吗？

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

谢谢！

Answer 1

试试这个：

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

在您的情况下，您在Select Case 中有错误条件。