Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

Wie berechnet man Tage oder Stunden zwischen zwei Datumsangaben oder Uhrzeiten in einem Word-Dokument?

Author: Xiaoyang Last Modified: 2025-08-26

Normalerweise können wir die Anzahl der Tage zwischen zwei Datumsangaben in einem Excel-Arbeitsblatt schnell und einfach berechnen, aber haben Sie jemals versucht, die Anzahl der Tage zwischen zwei bestimmten Datumsangaben in einem Word-Dokument zu erhalten?

Berechnen Sie den Unterschied zwischen zwei Datumsangaben in einem Word-Dokument mit VBA-Code.

Berechnen Sie den Unterschied zwischen zwei Uhrzeiten in einem Word-Dokument mit VBA-Code.

Berechnen Sie den Unterschied zwischen zwei Datumsangaben in einem Word-Dokument mit VBA-Code.

Um die Anzahl der Tage zwischen zwei bestimmten Datumsangaben zu berechnen, kann der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:

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

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

VBA-Code: Unterschied zwischen zwei Datumsangaben berechnen

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 dann die F5-Taste, um diesen Code auszuführen. Geben Sie in den aufeinanderfolgenden Dialogfeldern das Startdatum und das Enddatum ein, das Sie verwenden möchten, siehe Screenshot:

Enter the start and end date

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

Pop-up displaying days between the two dates

Berechnen Sie den Unterschied zwischen zwei Uhrzeiten in einem Word-Dokument mit VBA-Code.

Hier ist ein weiterer VBA-Code, der Ihnen helfen kann, den Unterschied zwischen zwei bestimmten Uhrzeiten zu berechnen. Gehen Sie bitte wie folgt vor:

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

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

VBA-Code: Unterschied zwischen zwei Uhrzeiten berechnen

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 dann die F5-Taste, um diesen Code auszuführen. Geben Sie in den aufeinanderfolgenden Dialogfeldern die Startzeit und die Endzeit ein, die Sie zur Berechnung des Unterschieds verwenden möchten, siehe Screenshot:

Enter the start and end time

4. Klicken Sie dann auf die Schaltfläche OK, und der Zeitunterschied zwischen zwei bestimmten Zeiten wurde berechnet und wird wie im folgenden Screenshot angezeigt:

Pop-up displaying time difference between the two times

Die besten Produktivitätstools für das Büro

Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen ...

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!

Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

Die besten Produktivitätstools für das Büro

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools