我了! CtznKane,如果你还在那里,几乎没有帮助?
我设置了你建议的功能,但由于某种原因,它没有按照预期的那样做。它不返回错误,似乎总是返回一个假值,即使它应该返回true。
Public Function isdaydat(ByVal datval As Date) As Boolean
Select Case True
Case datval > CDate("3/9/2008") And datval < CDate("11/1/2008")
isdaydat = True
Case Else
isdaydat = False
End Select
End Function
这是我如何在texbox子程序中调用它来显示日志文本框中的reg或daylight
fixdat = CDate(Me.dtefrm.Value)
Me.dtefrm.Value = Application.WorksheetFunction.Text(fixdat, "mm/dd/yyy")
isvaldst = isdaydat(Me.dtefrm.Value)
If isvaldat = True Then
Me.dayconf.Value = "Daylight"
Else
Me.dayconf.Value = "Regular"
End If