2 schnelle Möglichkeiten, um den Unterschied zwischen zwei Daten oder Zeiten über Word VBA zu ermitteln

In diesem Artikel möchten wir Ihnen zwei schnelle und effiziente Möglichkeiten vorstellen, um den Unterschied zwischen zwei bestimmten Daten oder Zeiten über Word-Makros zu ermitteln.

Die Berechnung der verbleibenden Tage oder Zeiten zwischen zwei konkreten Daten oder Zeiten ist kein Problem. Sie können entweder selbst rechnen oder einen Datums- oder Zeitdauerrechner erhalten. Und hier möchten wir Ihnen die zwei Makromethoden demonstrieren, mit denen Sie den Datums- oder Zeitunterschied in Word ermitteln können. Im Folgenden sind die detaillierten Schritte aufgeführt:

Holen Sie sich den Datumsunterschied

1. Als Erstes öffnen Sie Word.
2. Klicken Sie dann auf die Registerkarte "Entwickler", falls diese bereits aktiviert ist.
3. Klicken Sie anschließend auf "Visual Basic", um den VBA-Editor zu öffnen. Sie können sich beziehen So fügen Sie Hintergrundmusik in Ihr Word-Dokument ein um dem Menüband "Entwickler" hinzuzufügen. Oder Sie können stattdessen auch „Alt + F11“ drücken, wenn Sie dies nicht möchten.
4. Klicken Sie nun auf "Normal" und dann auf "Einfügen".
5. Wählen Sie im Listenmenü „Modul“.
6. Doppelklicken Sie anschließend auf das neue Modul, um den Bearbeitungsbereich aufzurufen.
7. Fügen Sie die folgenden Codes ein:

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. Klicken Sie auf "Ausführen", um die Codes auszuführen.
9. Nun wird ein Dialogfeld mit der Bezeichnung „Startdatum“ angezeigt. Geben Sie das Startdatum in das Textfeld ein und klicken Sie auf „OK“.
10. Als nächstes erscheint das Dialogfeld „Enddatum“. Geben Sie ebenfalls das Enddatum ein und klicken Sie auf "OK".
11. Dann erscheint ein Meldungsfeld, das den Unterschied zwischen den beiden Daten anzeigt.

Wenn Sie das Ergebnis in Ihr Dokument einfügen müssen, können Sie das Makro ein wenig bearbeiten, indem Sie die Codezeile ändern. “MsgBox (“Es verbleiben noch ” & lDaysLeft & ” Tage von ” & dtStartDate & ” bis ” & dtEndDate & vbCrLf)"To"Selection.Text = “Es verbleiben ” & lDaysLeft & ” Tage von ” & dtStartDate & ” bis ” & dtEndDate & vbCrLf".

Holen Sie sich den Zeitunterschied

1. Wiederholen Sie zuerst die ersten 6 Schritte oben.
2. Fügen Sie stattdessen diese Codes ein:

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. Denken Sie daran, "Ausführen" zu drücken.
4. Geben Sie im Feld „Startzeit“ die Startzeit ein, z. B. „18:00:00“.
5. Geben Sie dann die Endzeit in das Dialogfeld "Endzeit" ein und klicken Sie auf "OK". Und Sie können das Ergebnis im nächsten Meldungsfeld überprüfen.

Reduzieren Sie das Risiko von Dateiverlusten

Ab und zu kann Word aufhören, aus heiterem Himmel zu arbeiten, wodurch unsere Dateien in großer Gefahr sind. Um die Wahrscheinlichkeit einer Beschädigung von Dateien zu verringern, empfehlen wir Ihnen, regelmäßig Backups zu erstellen. Holen Sie sich auch eine Word-Dateiwiederherstellungsprodukt ist notwendig, wenn Sie defekte Dateien reparieren müssen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel xls Datenreparatur-Tool und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX