Excel VBA-如何计算不同日期的登录/注销时间？

我想知道如何计算不同日期的日志小时数。 这是我的示例代码。它工作正常，但当日期不同时，会产生负面结果

 '03-14-2018   4:00:00 PM
 '03-015-2018  1:00:00 AM

 Login = 4:00:00 PM 
 Logout = 1:00:00 AM

 total = Logout - Login
 totalHours = (total / 1) * 24

---

提前感谢。

如果您使用的是文字日期/时间，则可以将其用作

Sub Sample()
    Dim Login As Date, Logout As Date

    Login = #3/14/2018 4:00:00 PM#
    Logout = #3/15/2018 1:00:00 AM#

    Total = Logout - Login
    totalHours = (Total / 1) * 24

    Debug.Print totalHours
End Sub

如果您的时间在

字符串中

变量，则可以使用

DateDiff

Sub Sample()
    Dim Login As String, Logout As String

    Login = "03-14-2018 4:00:00 PM"
    Logout = "03-15-2018 1:00:00 AM"

    Total = DateDiff("n", Logout, Login) / 60

    Debug.Print Total
End Sub

---

将其更改为

Login=#3/14/2018 4:00:00 PM

和

Logout=#3/15/2018 1:00 AM

您可以使用Datediff函数：

totalHours=Datediff（“h”），2018年3月14日下午4:00:00，2018年3月15日凌晨1:00:00）GBox totalHours