VB代码中实际进入时间与外出时间差值计算异常问题

正常计算场景（外出时间→预计进入时间） #

以下场景的时间计算逻辑运行符合预期：

Out-Time....InTime....Hrs
14:00.......17:00.....3.00Hrs(Not 3.12)

对应VB代码如下：

Private Sub nB01TO_AfterUpdate()
    Me.nB01TO = Format(Me.nB01TO, "hh:nn")
    Me.TimeB01 = Format(Me.nB01TO, "0.00")
    Me.TimeB01.Requery
    Me.TimeBTO01 = Format((Me.nB01TL / 6.1), "0.000") / 24
    Me.TimeBTO01.Requery
    Me.TimeBTO001 = Format((Me.TimeB01 + Me.TimeBTO01), "hh:nn")
    Me.TimeBTO001.Requery
    Me.nB01EI = Me.TimeBTO001
    Me.nB01EI.Requery
End Sub

注：此处将时间字段转为数值形式，方便与Excel版本计算结果对比，其中6.1为预设每小时拣选率。

异常计算场景（实际进入时间与外出时间差值） #

实际进入时间（Actual In）的总小时数计算结果错误，对应VB代码如下（原代码试图通过If语句处理跨午夜的差值）：

Private Sub nB01AI_AfterUpdate()
    Me.nB01AI = Format(Me.nB01AI, "hh:nn")
    Me.nBAI01 = Format(Me.nB01AI, "0.000")
    If Me.nBAI01 < Me.TimeB01 Then
        Me.nB01PH = Format(Me.nBAI01 - Me.TimeB01, "0.00") * 24 + 24
    Else
        Me.nB01PH = Format(Me.nBAI01 - Me.TimeB01, "0.00") * 24
    End If
End Sub

问题根源 #

Format函数返回的是文本字符串，而非数值类型。直接用字符串进行大小比较、算术运算会触发字典序比较或类型转换异常，导致计算逻辑出错。

解决方案：基于时间本质数值直接计算 #

在VBA中，时间本质是小数（1天=1，1小时=1/24，1分钟=1/1440），应直接基于原始时间值运算，仅在最后格式化结果用于显示：

Private Sub nB01AI_AfterUpdate()
    ' 格式化显示时间，但保留原始值用于计算
    Me.nB01AI = Format(Me.nB01AI, "hh:nn")
    
    ' 转换时间为Double类型数值
    Dim actualInTime As Double
    Dim outTime As Double
    actualInTime = CDbl(Me.nB01AI)
    outTime = CDbl(Me.TimeB01)
    
    Dim hoursDiff As Double
    ' 处理跨午夜场景
    If actualInTime < outTime Then
        hoursDiff = (1 - outTime + actualInTime) * 24
    Else
        hoursDiff = (actualInTime - outTime) * 24
    End If
    
    ' 格式化结果为两位小数
    Me.nB01PH = Format(hoursDiff, "0.00")
End Sub

核心修正点 #

1. 用CDbl()将时间字段转为数值类型，避免字符串运算带来的错误
2. 优化跨午夜差值逻辑：通过(1 - 外出时间数值 + 实际进入时间数值)计算跨天时长，再转小时数
3. 仅在最终结果阶段进行格式化，计算全程使用数值类型保证精度

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