vba - 如何提取两个日期时间vba之间的分钟差异

Question

我有一个用户窗体，它会自动生成当前日期时间并将其放在一个单元格中(批处理结束)。然后稍后再次使用用户窗体，它将重复该步骤，但将其放在不同的单元格中(新批处理开始)。

我想以分钟为单位计算两个日期时间之间的时差。当我从较晚的日期时间中减去较早的日期时间时，我现在使用的代码出于某种原因给了我奇怪的否定答案，所以它一定是某处有错误。 (由于在午夜后开始和结束批处理，这些日期可能会或可能不会在同一天)。

当我只是尝试使用单元格公式将两者相减(没有代码)时，我得到了不正确的 .05 值。

有谁知道我可以让 excel 正确识别这些日期时间并减去它们以便生成分钟差异的方法吗？

If opt1.Value = True And Range("U40") = "" Then
    Range("U40") = Format(txt1, "dd-mmm-yyyy hh:mm")
    UserForm3.Hide
ElseIf opt1.Value = True And Range("U41") = "" Then
    Range("U41") = Format(txt1, "dd-mmm-yyyy hh:mm")
    UserForm3.Hide
ElseIf opt1.Value = True And Range("U42") = "" Then
    Range("U42") = Format(txt1, "dd-mmm-yyyy hh:mm")
    UserForm3.Hide
ElseIf opt2.Value = True And Range("W40") = "" Then
    Range("W40") = Format(txt1, "dd-mmm-yyyy hh:mm")
    UserForm3.Hide
ElseIf opt2.Value = True And Range("W41") = "" Then
    Range("W41") = Format(txt1, "dd-mmm-yyyy hh:mm")
    UserForm3.Hide
ElseIf opt2.Value = True And Range("W42") = "" Then
    Range("W42") = Format(txt1, "dd-mmm-yyyy hh:mm")
    UserForm3.Hide
End If

If Range("U42") > "" And Range("W42") > "" Then
    Range("Y42") = Range("W42") - Range("U42")
ElseIf Range("U41") > "" And Range("W41") > "" Then
    Range("Y41") = Range("W41") - Range("U41")
ElseIf Range("U40") > "" And Range("W40") > "" Then
    Range("Y40") = Range("W40") - Range("U40")
End If

Answer 1

Excel 中的时间存储为一天的一小部分。减法得到小数天，你需要乘以得到分钟:

(时间 B - 时间 A)* 每小时 60 分钟 * 一天 24 小时

=(B1-A1)*60*24