如何計算 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 鍵以執行此程式碼，在接續出現的對話方塊中，輸入您想使用的開始日期和結束日期，請參閱截圖：

4. 然後，點選確定按鈕，即可獲得您想要的結果，請參閱截圖：

---

使用 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 鍵以執行此程式碼，在接續出現的對話方塊中，輸入您想用來計算差異的開始時間與結束時間，請參閱截圖：

4. 然後，點選確定按鈕，兩個指定時間之間的時間差即已計算完成並以下列截圖所示方式顯示：