Funzioni DateAdd

Restituisce la data in cui è stato aggiunto un intervallo di tempo specificato.

Sintassi

DateAdd(interval, number, date)

Argomenti:

  • Interval: obbligatorio. Espressione stringa corrispondente all'intervallo che si desidera aggiungere. Per i valori, vedere la sezione Impostazioni.
  • Number: obbligatorio. Espressione numerica corrispondente al numero di intervalli che si desidera aggiungere. L'espressione numerica può essere positiva (per date future) o negativa (per date passate).
  • Date: obbligatorio. Una variabile Variant o letterale che rappresenta la data a cui viene aggiunto l'intervallo.

Impostazioni: l'argomento interval può avere i seguenti valori.

Tabella 11-9 Valori dell'argomento interval

Impostazione Descrizione
yyyy Anno
q Trimestre
m Month
d Day
w Giorno feriale
h Hour
n Minute
s Second

Formati di data supportati

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

Formato di ora supportato

hh:mm:ss

Note

È possibile utilizzare la funzione DateAdd per aggiungere o sottrarre un intervallo di tempo specificato da una data. Ad esempio, è possibile utilizzare DateAdd per calcolare una data a 10 giorni dalla data odierna o un'ora a 45 minuti da dall'ora corrente. Per aggiungere giorni a una data, è possibile utilizzare Day ("d") o Weekday ("w").

Il formato della data di output si basa sul formato di data breve del sistema.

Nell'esempio seguente viene illustrato l'uso della funzione DateAdd.

Esempio 1

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

Esempio 2

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

Esempio 3

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

Esempio 4

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

Esempio 5

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

Esempio 6

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

Esempio 7

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

Esempio 8

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