DateDiff-Funktion

Gibt die Anzahl der Intervalle zwischen zwei Daten an.

Syntax

DateDiff(interval, date1, date2)

Argumente:

  • Interval: Erforderlich. Zeichenfolgeausdruck, der das Intervall angibt, mit dem Sie die Abweichungen zwischen "date1" und "date2" berechnen möchten. Informationen zu Werten finden Sie im Abschnitt "Einstellungen".
  • date1, date2: Erforderlich. Datumsausdrücke. Zwei Datumsangaben, die Sie in der Berechnung verwenden möchten.
Einstellungen: Das Argument "interval" kann die folgenden Werte aufweisen:

Tabelle 11-10 Argumentwerte für"interval"

Einstellung Beschreibung
yyyy Jahr
q Quartal
m Monat
d Tag
w Wochentag
h Stunde
n Minute
s Sekunde

Unterstützte Datumsformate:

  • MM-DD-YYYY
  • MM/DD/YYYY
  • DD-MM-YYYY
  • DD/MM/YYYY
  • YYYY-MM-DD
  • YYYY/MM/DD

Unterstütztes Zeitformat:

hh:mm:ss

Anmerkungen

Mit der DateDiff-Funktion können Sie bestimmen, wie viele angegebene Zeitintervalle zwischen zwei Datumsangaben vorhanden sind. Beispiel: Sie können mit DateDiff die Anzahl der Tage zwischen zwei Datumsangaben berechnen.

Um die Anzahl der Tage zwischen "date1" und "date2" zu berechnen, können Sie "Day ("d")" verwenden. Wenn "date1" auf einen späteren Zeitpunkt als "date2" verweist, gibt die DateDiff-Funktion eine negative Zahl zurück.

Beim Vergleich des 31. Dezember mit dem 1. Januar des unmittelbar darauffolgenden Jahres gibt DateDiff für das Jahr ("yyyy") 1 zurück, obwohl nur ein Tag verstrichen ist.

Im folgenden Beispiel wird mit der DateDiff-Funktion die Anzahl der Tage zwischen einem angegebenen Datum und heute angezeigt:

Beispiel 1:

Function DiffADate(theDate)
DiffADate = "Days from today: " & DateDiff("d", Now, theDate)
End Function

Beispiel 2:

Dim StartDate, EndDate, Difference
StartDate = "01/01/2025"
EndDate = "21/01/2025"
Difference = DateDiff("d", StartDate, EndDate) 
'Output: 20

Beispiel 3:

Dim StartDate, EndDate, Difference
StartDate = "01/01/2020"
EndDate = "01/01/2025"
Difference = DateDiff("yyyy", StartDate, EndDate) 
'Output: 5

Beispiel 4:

Dim StartDate, EndDate, Difference
StartDate = "21/01/2025"
EndDate = "21/03/2025" 
Difference = DateDiff("m", StartDate, EndDate)
'Output: 2

Beispiel 5:

Dim StartDate, EndDate, Difference
StartDate = "21/01/2025 08:00:00" ' Includes time component.
EndDate = "21/01/2025 18:00:00"   ' Includes time component.
Difference = DateDiff("h", StartDate, EndDate) 
'Output: 10

Beispiel 6:

Dim StartDate, EndDate, Difference
StartDate = "21/01/2025 08:00:00" ' Includes time component.
EndDate = "21/01/2025 08:45:00"   ' Includes time component.
Difference = DateDiff("n", StartDate, EndDate) 
'Output: 45

Beispiel 7:

Dim StartDate, EndDate, Difference
StartDate = "21/01/2025 08:45:00" ' Includes time component.
EndDate = "21/01/2025 08:45:50"   ' Includes time component.
Difference = DateDiff("s", StartDate, EndDate) 
'Output: 50