使用VBA校验报表日期时间时8:00时段判断不通过问题

报错核心是两个问题：

• 你硬编码的8:00对应时间序列值是错的。Excel以天为单位存储日期时间，1代表1整天，1小时对应值为1/24，8:00的准确序列值是8/24=1/3≈0.333333333333333，你写的0.33和真实值差了约0.0033天，换算成时间差接近4分48秒，哪怕你输入的是精确的8:00，提取出的时间值也和0.33不相等，自然会触发报错。
• 日期时间值本质是双精度浮点数，计算过程中本身就存在极小的精度误差，哪怕你把值写对了，直接用<>做精确等值判断，也有概率出现误判。

• 不要手动计算硬编码时间对应的小数值，用VBA内置的时间字面量或者TimeSerial函数生成准确的时间值，从根源避免数值近似错误。
• 时间等值判断必须增加合理的误差容限（一般设1-2秒对应的时间值即可），覆盖浮点数计算的精度损失。
• 如果你实际要校验的是时间窗口（而非必须精确等于某个时间点），直接用区间判断逻辑即可，不需要做等值匹配。

修正后的等值判断代码（匹配8:00整的要求） #

' 定义常量，后续维护改时间直接修改常量即可
Const MORNING_REPORT_CHECK_TIME As Date = #8:00:00 AM#
Const CHECK_TOLERANCE As Double = 2 / 86400 ' 误差容限设为2秒，足够覆盖浮点精度问题
Dim inputTimePart As Date
inputTimePart = TimeValue(reportdate) ' 用内置函数直接提取时间部分，比Int计算更稳定

If Continue And Abs(inputTimePart - MORNING_REPORT_CHECK_TIME) > CHECK_TOLERANCE 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

时间窗口判断参考代码（适配分界点校验逻辑） #

你提到三个时间分界点为0:00、8:00、16:00，如果早报对应0:00-8:00的时间窗口，可以直接用区间判断，完全避开浮点数等值匹配的坑：

Dim inputTimePart As Date
inputTimePart = TimeValue(reportdate)

' 早报窗口：时间大于等于0点，小于8点
If Continue And (inputTimePart >= TimeSerial(8, 0, 0)) 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

午报、晚报的判断只需要对应调整区间边界即可，比如午报对应大于等于8点、小于16点，晚报对应大于等于16点。

内容的提问来源于stack exchange，提问作者SouthernGentlemen