メインコンテンツへスキップ

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

Author: Xiaoyang Last Modified: 2025-05-23

通常、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キーを押してこのコードを実行します。連続するダイアログボックスで、使用したい開始日と終了日を入力します。スクリーンショットをご覧ください:

Enter the start and end date

4. そして、 OKボタンをクリックすると、必要な結果が得られます。スクリーンショットをご覧ください:

Pop-up displaying days between the two dates


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キーを押してこのコードを実行します。連続するダイアログボックスで、差を計算するために使用したい開始時刻と終了時刻を入力します。スクリーンショットをご覧ください:

Enter the start and end time

4. そして、OKボタンをクリックすると、指定された2つの時刻の時間差が計算され、次のスクリーンショットのように表示されます:

Pop-up displaying time difference between the two times

最高のオフィス生産性ツール

Kutools for Word - Wordの体験を100以上の素晴らしい機能で向上させましょう!

🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ (形式を保持) / スーパー トランスレート (形式を保持) / AI編集 / AI校正...

📘 文書のマスタリー: ページの分割 / 文書の結合 / 様々な形式で選択をエクスポート (PDF/TXT/DOC/HTML...) / 一括PDF変換...

内容の編集: 複数ファイルにわたる一括検索と置換 /すべての画像をリサイズ / 表の転置 / 表をテキストに変換...

🧹 簡単なクリーンアップ:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃 / その他の削除ツールは削除グループへ...

創造的な挿入: 千の区切りを挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 挿入グループでさらに発見...

🔍 精密な選択: 特定のページ / / 図形 / 見出し段落を特定 / より多くの 選択 機能でナビゲーションを強化...

スター強化: 任意の場所に移動 / 繰り返しテキストを自動挿入 / 文書ウィンドウ間を切り替え /11 変換ツール...

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を試してみませんか?今すぐKutools for Wordをダウンロード!🚀