如何計算Word文檔中兩個日期或時間之間的天數或小時數？

通常，我們可以快速輕鬆地計算Excel工作表中兩個日期之間的天數，但是，您是否曾經嘗試過獲取Word文檔中兩個給定日期之間的天數？

使用VBA代碼計算Word文檔中兩個日期之間的差異

使用VBA代碼在Word文檔中計算兩次之間的差異

使用VBA代碼計算Word文檔中兩個日期之間的差異

要計算兩個給定日期之間的天數，請使用下面的VBA代碼，具體操作如下：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。然後，單擊插入 > 模塊，將以下代碼複製並粘貼到打開的空白模塊中：

VBA代碼：計算兩個日期之間的差異

Sub CalculateDateDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xDay As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start date", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end date", "KuTools for Word", "")
   If (InStr(1, Str(xStartDate), ":") > 0) Or (InStr(1, Str(xEndDate), ":") > 0) Then
        MsgBox "please input current date", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xDay = DateDiff("d", xStartDate, xEndDate)
    MsgBox "There are " & xDay & " days left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3。然後，按 F5 鍵以運行此代碼，在連續的對話框中，輸入要使用的開始日期和結束日期，請參見屏幕截圖：

doc計算天數1

4。然後，點擊 OK 按鈕，您將獲得所需的結果，請參見屏幕截圖：

doc計算天數2

使用VBA代碼在Word文檔中計算兩次之間的差異

這是另一個VBA代碼，可以幫助您計算兩次給定時間之間的時差，請按照以下步驟操作：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。然後，單擊插入 > 模塊，將以下代碼複製並粘貼到打開的空白模塊中：

VBA代碼：計算兩次之間的差

Sub CalculateTimeDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xTime As Long
    Dim xHour As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start time", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end time", "KuTools for Word", "")
    Debug.Print Str(xStartDate)
    If (Str(xStartDate) = " 0:00:00") Or (Str(xEndDate) = " 0:00:00") _
    Or (Str(xStartDate) = " 12:00:00 AM") Or (Str(xEndDate) = " 12:00:00 AM") Then
        MsgBox "please input the time", vbInformation, "KuTools for Excel"
        Exit Sub
    ElseIf xStartDate > xEndDate Then
        MsgBox " The start time is not larger than the end time!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xTime = DateDiff("s", xStartDate, xEndDate)
    xHour = xTime \ 3600
    xTime = xTime - xHour * 3600
    MsgBox "There are " & xHour & " hours " & xTime \ 60 & " minutes " & xTime - (xTime \ 60) * 60 _
            & " seconds left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3。然後，按 F5 鍵以運行此代碼，在連續的對話框中，輸入要用於計算差異的開始時間和結束時間，請參見屏幕截圖：

doc計算天數3