Excel VBA - 根据夏令时填写差异时区时间

时间:2018-01-05 22:15:17

标签: excel-vba vba excel

我了! 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

0 个答案:

没有答案