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

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

著者:シャオヤン 最終更新日:2024年08月26日

通常、ExcelワークシートでXNUMXつの日付の間の日数をすばやく簡単に計算できますが、Word文書でXNUMXつの日付の間の日数を取得しようとしたことがありますか?

VBAコードを使用してWord文書のXNUMXつの日付の差を計算します

VBAコードを使用してWord文書のXNUMXつの時間の差を計算します


VBAコードを使用してWord文書のXNUMXつの日付の差を計算します

指定されたXNUMXつの日付の間の日数を計算するには、以下のVBAコードを使用すると便利です。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。

VBAコード:XNUMXつの日付の差を計算します

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 ボタンをクリックすると、希望する結果が得られます。スクリーンショットを参照してください。

2つの日付間の日数を表示するポップアップ


VBAコードを使用してWord文書のXNUMXつの時間の差を計算します

これは、指定されたXNUMXつの時間の差を計算するのに役立つ別のVBAコードです。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。

VBAコード:XNUMX回の差を計算する

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

2つの時刻の差を表示するポップアップ

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

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AIの機能: コンテンツを生成する / テキストを書き換える / ドキュメントに関するQ&A / すぐに回答を得る / ドキュメントを翻訳する / ポーランド語文書(保存形式)...

📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換...

コンテンツ編集: 複数のファイルにわたるバッチ検索と置換 / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...

🧹 楽にお掃除: 掃き捨てる 余分なスペース / セクションブレーク / テキストボックス / ハイパーリンク / その​​他の取り外しツールについては、 削除します グループ...

クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の写真 / 詳細はこちら インセット グループ...

🔍 正確な選択: ピンポイント 特定のページ / テーブル類 / 形状 / 見出し段落 / ナビゲーションを強化する 他には? 選択 機能を使用...

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

Word リボンの Kutools および Kutools Plus タブ
👉 これらの機能を試してみませんか? 今すぐ Kutools for Word をダウンロードしてください! 🚀