DateAdd-Funktion

Gibt ein Datum zurück, dem ein angegebenes Zeitintervall hinzugefügt wurde.

Syntax

DateAdd(interval, number, date)

Argumente:

  • Interval: Erforderlich. Zeichenfolgeausdruck, der das hinzuzufügende Intervall angibt. Werte finden Sie im Abschnitt Einstellungen.
  • Number: Erforderlich. Numerischer Ausdruck, der die Anzahl der hinzuzufügenden Intervalle angibt. Der numerische Ausdruck kann positiv sein (für Datumsangaben in der Zukunft) oder negativ (für Datumsangaben in der Vergangenheit).
  • Date: Erforderlich. Varianten- oder Literalwert, der das Datum angibt, zu dem das Intervall addiert wird.

Einstellungen: Das Argument "interval" kann die folgenden Werte aufweisen:

Tabelle 11-9 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
  • DD/MM/YYYY
  • YYYY-MM-DD
  • YYYY/MM/DD

Unterstütztes Zeitformat:

hh:mm:ss

Anmerkungen

Mit der DateAdd-Funktion können Sie ein bestimmtes Zeitintervall zu einem Datum addieren oder davon subtrahieren. Beispiel: Sie können mit DateAdd ein Datum in 10 Tagen ab heute oder eine Uhrzeit in 45 Minuten ab jetzt berechnen. Um Tage zum Datum zu addieren, können Sie Tag ("d") oder Wochentag ("w") verwenden.

Das Ausgabeformat für das Datum basiert auf dem kurzen Datumsformat des Systems.

Das folgende Beispiel veranschaulicht die Verwendung der DateAdd-Funktion:

Beispiel 1:

Dim MyDate, NewDate 
MyDate = "21/01/2025" 
NewDate = DateAdd("yyyy", 5, MyDate) 
'Output: 21-Jan-30

Beispiel 2:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("q", 1, MyDate)
'Output: 21-Apr-25

Beispiel 3:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("m", 2, MyDate)
'Output: 21-Mar-25

Beispiel 4:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("d", 10, MyDate)
'Output: 31-Jan-25

Beispiel 5:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("w", 4, MyDate)
'Output: 25-Jan-25

Beispiel 6:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("h", 5, MyDate)
'Output: 21-Jan-25 7:40:00 PM

Beispiel 7:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("n", 5, MyDate)
'Output: 21-Jan-25 2:45:00 PM

Beispiel 8:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("s", 5, MyDate)
'Output: 21-Jan-25 2:40:05 PM