VBA中HH:MM格式的相同时间返回不同结果问题排查

1. 判断顺序搞反了：原函数第一个条件就判断TimeIn >= #10:00:00 PM#返回3，但你要求22:00算晚班（返回2），精确的22:00会触发第一个条件返回3，和预期不符。
2. Excel时间藏着精度坑：Excel的时间是用浮点数存储的，哪怕单元格显示成HH:MM格式，实际值可能带有毫秒级的微小差异（比如22:00:00.001或者21:59:59.999），这些肉眼看不到的差异会让显示相同的时间触发不同分支，返回不同结果。

把判断逻辑和精度问题一起解决，修改后的GetShift函数如下：

Public Function GetShift(TimeIn As Date) As Long
    ' 把时间截断到分钟级别，消除秒和毫秒的差异
    Dim truncatedTime As Date
    truncatedTime = TimeSerial(Hour(TimeIn), Minute(TimeIn), 0)
    
    ' 调整判断顺序，确保22:00归到晚班
    GetShift = Switch( _
        truncatedTime > #10:00:00 PM#, 3, _
        truncatedTime <= #6:00:00 AM#, 4, _
        truncatedTime >= #6:00:00 AM# And truncatedTime <= #2:00:00 PM#, 1, _
        truncatedTime >= #2:00:00 PM# And truncatedTime <= #10:00:00 PM#, 2 _
    )
End Function

• 统一时间精度：用TimeSerial提取原时间的小时和分钟，重新生成整分钟的时间，不管原时间带多少毫秒，都统一成无秒级差异的时间值，确保显示相同的时间，判断逻辑完全一致。
• 修正判断逻辑：把夜班的触发条件从>=22:00改成>22:00，同时保持判断顺序，这样精确的22:00会落到晚班分支返回2，只有22:00之后的时间才触发夜班返回3，完全符合你的切换点要求。

• 可以添加辅助列，用公式=TEXT(目标单元格,"HH:MM:SS.000")查看时间的完整精度，确认是不是毫秒差异在作祟。
• 检查目标单元格的格式，别把时间存成文本格式，文本格式的时间无法被Date类型参数正确识别。

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