时间结果不正确

Question

时间计算得出不同的结果。

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

这部分代码按预期工作。

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”是每小时预期的拣选率。

[![!\[Time Out:][1]][1]

第二部分时间：“Actual In”就是问题所在！总小时数不正确：

[![Actual Time In:][1]][1]

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

If 语句处理“实际进入”时间在午夜之后的时差。 TIA

Answer 1

事实证明我没有使用足够的小数位，一旦我将字段扩展到 4，它就起作用了。 我确实更改了一些公式以不包含格式，并将其留到最后一步，这也有所帮助。 谢谢大家，非常感谢。