Word 文書で2 つの日付または時刻の間の日数や時間を計算するには、どうすればよいですか？

通常、Excel ワークシートでは2 つの日付間の日数を素早く簡単に計算できますが、Word 文書内で指定された2 つの日付間の日数を計算しようとしたことはありますか？

VBA コードを使用してWord 文書で2 つの日付の差分を計算する

VBA コードを使用してWord 文書で2 つの時刻の差分を計算する

---

VBA コードを使用してWord 文書で2 つの日付の差分を計算する

指定された2 つの日付間の日数を計算するには、以下の VBA コードが役立ちます。次の手順に従って操作してください。

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．次に、挿入>モジュールをクリックし、開いた空のモジュールに以下のコードをコピー＆ペーストしてください。

VBA コード：2 つの日付の差分を計算する

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．次に、OKボタンをクリックすると、希望の結果が得られます（下図参照）。

---

VBA コードを使用してWord 文書で2 つの時刻の差分を計算する

以下に、2 つの指定された時刻の差分を計算できる別の VBA コードを示します。次の手順に従って操作してください。

1．ALT + F11キーを押しながら、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．次に、挿入>モジュールをクリックし、開いた空のモジュールに以下のコードをコピー＆ペーストします。

VBA コード：2 つの時刻の差分を計算する

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．次に、OKボタンをクリックすると、指定した2 つの時刻の差分が計算され、以下のスクリーンショットのように表示されます。