Wie berechnet man Tage oder Stunden zwischen zwei Daten oder Zeiten im Word-Dokument?
Normalerweise können wir die Anzahl der Tage zwischen zwei Daten im Excel-Arbeitsblatt schnell und einfach berechnen. Haben Sie jemals versucht, die Anzahl der Tage zwischen zwei bestimmten Daten in einem Word-Dokument zu ermitteln?
Berechnen Sie die Differenz zwischen zwei Daten im Word-Dokument mit VBA-Code
Berechnen Sie die Differenz zwischen zwei Malen im Word-Dokument mit VBA-Code
Berechnen Sie die Differenz zwischen zwei Daten im Word-Dokument mit VBA-Code
Um die Anzahl der Tage zwischen zwei angegebenen Daten zu berechnen, kann Ihnen der folgende VBA-Code einen Gefallen tun. Gehen Sie wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:
VBA-Code: Berechnen Sie die Differenz zwischen zwei Daten
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. Und dann drücken F5 Geben Sie in den aufeinander folgenden Dialogfeldern das Start- und Enddatum ein, das Sie verwenden möchten (siehe Abbildung):
4. Dann klick OK Klicken Sie auf die Schaltfläche, und Sie erhalten das gewünschte Ergebnis (siehe Abbildung):
Berechnen Sie die Differenz zwischen zwei Malen im Word-Dokument mit VBA-Code
Hier ist ein weiterer VBA-Code, mit dem Sie die Differenz zwischen zwei angegebenen Zeiten berechnen können. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:
VBA-Code: Berechnen Sie die Differenz zwischen zwei Zeiten
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. Und dann drücken F5 Geben Sie in den aufeinander folgenden Dialogfeldern die Start- und Endzeit ein, die Sie zur Berechnung der Differenz verwenden möchten (siehe Abbildung):
4. Dann klick OK Die Zeitdifferenz zwischen zwei angegebenen Zeiten wurde berechnet und wie folgt angezeigt:
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...