当前小时到现在时刻的秒数总和怎么计算？VB代码

2025-04-14 06:41:27

推荐回答（1个）

回答1：

Option Explicit

Private Sub Form_Load()
    Dim mHour As Date, mNow As Date, mSecond As Long
    mNow = Format(Now, "YYYY-MM-DD hh:mm:ss")           '格式化当前时间
    mHour = Format(mNow, "YYYY-MM-DD hh:00:00")         '格式化当前时间，精确到小时
    mSecond = DateDiff("s", mHour, mNow)                '计算两者之间相差多少秒
    
    MsgBox "从当前时间到当前小时，相差了：" & mSecond & " 秒。", 0, "计算时间差："
End Sub