Wie berechnet man die Anzahl der Tage oder Stunden zwischen zwei Datumswerten bzw. Uhrzeiten in einem Word-Dokument?

Normalerweise können Sie die Anzahl der Tage zwischen zwei Datumswerten in einem Excel-Arbeitsblatt schnell und einfach berechnen – aber haben Sie jemals versucht, die Anzahl der Tage zwischen zwei vorgegebenen Datumswerten direkt in einem Word-Dokument zu ermitteln?

Berechnen des Unterschieds zwischen zwei Datumswerten in einem Word-Dokument mithilfe von VBA-Code

Berechnen des Unterschieds zwischen zwei Uhrzeiten in einem Word-Dokument mithilfe von VBA-Code

---

Berechnen des Unterschieds zwischen zwei Datumswerten in einem Word-Dokument mithilfe von VBA-Code

Um die Anzahl der Tage zwischen zwei vorgegebenen Datumswerten zu ermitteln, unterstützt Sie der folgende VBA-Code. Gehen Sie dazu wie folgt vor:

1. Drücken Sie gleichzeitig die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie den folgenden Code in das geöffnete, leere Modul ein:

VBA-Code: Berechnung des Unterschieds zwischen zwei Datumswerten

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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Geben Sie in den aufeinanderfolgenden Dialogfeldern das Start- und Enddatum ein, das Sie verwenden möchten (siehe Screenshot):

4. Klicken Sie dann auf die Schaltfläche OK, und schon erhalten Sie das gewünschte Ergebnis (siehe Screenshot):

---

Berechnen des Unterschieds zwischen zwei Uhrzeiten in einem Word-Dokument mithilfe von VBA-Code

Hier ist ein weiterer VBA-Code, mit dem Sie die Differenz zwischen zwei vorgegebenen Uhrzeiten berechnen können. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.

2. Klicken Sie anschließend auf Einfügen>Modul, und kopieren Sie den folgenden Code in das geöffnete leere Modul:

VBA-Code: Berechnung des Unterschieds zwischen zwei Uhrzeiten

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. Drücken Sie anschließend die F5-Taste, um den Code auszuführen. Geben Sie in den folgenden Dialogfeldern die gewünschte Start- und Endzeit für die Berechnung der Differenz ein (siehe Screenshot):

4. Klicken Sie dann auf die Schaltfläche OK, und der Zeitunterschied zwischen den beiden vorgegebenen Uhrzeiten wird berechnet und wie im folgenden Screenshot gezeigt angezeigt: