使用VBA验证报告的日期和时间

Question

我有一个电子表格，其中有一个输入页面，记录后续工作表的数据。宏将允许用户输入三个日期和时间片段，以验证数据应该如何存储。

例如，有一个早晨，中午和晚上的报告按钮;单击宏后，将验证日期和时间是否适合适当的窗口。我的时间是8:00,16:00和0:00，下面的代码验证时间落在正确的窗口:

If Continue And reportdate - Int(reportdate) <> 0.33 Then
MsgBox ("The date and time are not correct for the Morning Report. Please change the time/date or select one of the other reports.")
Continue = False
End If

reportdate是用户为报告输入的日期和时间。算术= 0.33，我的意思是，如果日期和时间与这个值不匹配，那么时间框架就不正确，应该运行不同的报告。然而，当我在上午8点运行这段代码时，宏说它不属于正确的时间窗口。

Answer 1

好了，前面提到的0.33实际上不是上午8点，它看起来是7:55:12。

使用stop和locals窗口:

differenceValue = eightAm - midNight
Stop

给出差值0.333333333335759。
你可以使用它或者像上面那样设置一个differneceValue并与之比较。让我知道它是否有效