WordVBAを介して2つの日付または時刻の違いを取得するXNUMXつの簡単な方法

この記事では、Wordマクロを介して2つの特定の日付または時刻の違いを取得するための2つの迅速かつ効率的な方法を紹介します。

2つの具体的な日付または時刻の間に残っている日または時間を計算することは難しくありません。 自分で計算するか、日付または期間の計算機を入手することができます。 ここでは、Wordで日付または時刻の違いを取得できる2つのマクロな方法を示します。 詳細な手順は次のとおりです。

日付の違いを取得する

1. まず第一にost、Wordを開きます。
2. 次に、「開発者」タブがすでにアクティブになっている場合はクリックします。
3. 次に、「VisualBasic」をクリックしてVBAエディタを開きます。 あなたは参照することができます Word文書にBGMを挿入する方法 リボンに「開発者」を追加します。 または、必要に応じて、代わりに「Alt + F11」を押すこともできます。
4. 次に、「通常」をクリックしてから「挿入」をクリックします。
5. リストメニューで「モジュール」を選択します。
6. 次に、新しいモジュールをダブルクリックして編集領域に入ります。
7. 次のコードを貼り付けます。

Sub CalculateDateDifference()
  Dim dtStartDate As Date
  Dim dtEndDate As Date
  Dim lDaysLeft As Long

  '  Input the start date and end date, calculate the date difference.
  dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
  dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
  lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)

  '  Output the calculate the date difference between the two dates. 
  MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub

8. 「実行」をクリックしてコードを実行します。
9. これで、「S」が表示されます。tart日付」ダイアログボックス。 を入力してくださいtarテキストボックスに日付を入力し、「OK」をクリックします。
10. 次に、「終了日」ダイアログボックスがあります。 同様に、終了日を入力して「OK」をクリックします。
11. 次に、2つの日付の違いを示すメッセージボックスがポップアップ表示されます。

結果をドキュメントに挿入する必要がある場合は、コード行を変更することでマクロを少し編集できます。MsgBox（「あります」＆lDaysLeft＆「残り日数」＆dtStartDate＆” to”＆dtEndDate＆vbCrLf）"へ"Selection.Text =“があります”＆lDaysLeft＆”残りの日数”＆dtStartDate＆” to”＆dtEndDate＆vbCrLf"。

時差を取得する

1. まず、上記の最初の6つの手順を繰り返します。
2. 次に、代わりに次のコードを貼り付けます。

Sub CalculateTimeDifference()
  Dim dtStartTime As Date
  Dim dtEndTime As Date
  Dim lTimeLeft As Long
  Dim lHour As Long
  Dim lMinute As Long
  Dim lSecond As Long
 
  '  Get the start time and the end time.
  dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00") 
  dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00") 
  '  Calculate the time difference. 
  lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
  lHour = lTimeLeft \ 3600
  lTimeLeft = lTimeLeft - lHour * 3600
  lMinute = lTimeLeft \ 60
  lSecond = lTimeLeft - lMinute * 60
 
  MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub

3. 「実行」を押すのを忘れないでください。
4. 「Start時間」ボックスに、sを入力しますtar「18:00:00」などのt時間。
5. 次に、「終了時間」ダイアログボックスに終了時間を入力し、「OK」をクリックします。 そして、表示されるメッセージボックスで結果を確認できます。

ファイル損失のリスクを軽減する

ときどき、Wordが突然動作を停止し、ファイルが非常に危険な状態になることがあります。 したがって、ファイルが破損する可能性を減らすために、定期的にバックアップを作成することをお勧めします。 また、 Wordファイル回復製品 あなたが壊れたファイルを修正する必要があることに気付いたときに必要です。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelxlsデータ修復ツール and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com