Ms access MS Access 2010模块案例陈述
我试图在MS Access 2010 for Birth=5/5/1958中执行以下功能,并获得未知而非Dog的返回值。对这个案子有什么帮助吗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
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