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つの時刻の時間差が計算され、次のスクリーンショットのように表示されます：
最高のオフィス生産性ツール
Kutools for Word - 100以上の驚くべき機能でWordの操作体験を向上！
🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ（書式維持）/ スーパー トランスレート（書式維持）/ AI編集 / AI校正...
📘 文書マスター: ページの分割 / 文書の結合 / 選択範囲を様々な書式（PDF/TXT/DOC/HTMLなど）でソリューションをエクスポート / 一括PDF変換...
✏ テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...
🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...
➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...
🔍 高精度な選択: 特定のページや表、図形、見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...
⭐ スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...
🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応！
✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます！
Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む
📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ
最高のオフィス生産性ツール
Kutools for Word - 100+ のツールでWordをよりパワフルに
- 🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書マスター: ページの分割 / 文書の結合 / 一括PDF変換
- ✏ テキスト編集: 一括検索と置換 /すべての画像をリサイズ
- 🧹 簡単クリーン:余分なスペースを削除 / セクション区切りを削除
- ➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックスを挿入 / QRコードを作成
- 🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただける ―40以上の言語をサポート！