vba - 在 if 函数中添加工作日

Question

我有一个 if 条件，如果时间在下午 5:10 到 8:15 之间，则运行一个函数。

如何添加另一个条件，即仅在工作日且时间在下午 5:10 到晚上 8:15 之间时运行该函数。

请参阅下面的代码:

If Format(Time, "hhmm") > 1710 And Format(Time, "hhmm") < 2015 Then
        Do stuff
    Else
        Stop
    End If

我想避免在周末和银行假日期间运行代码。

非常感谢

Answer 1

将时间视为实际时间值，而不是看起来像带有 TimeSerial function 的时间值的字符串。 。使用Weekday function确定周一至周五的数值。

If Time >= TimeSerial(17, 10, 0) And Time <= TimeSerial(20, 15, 0) And Weekday(Date, 2) <6 Then
    Do stuff
Else
    Stop
End If