Fonction DateAdd

Renvoie une date à laquelle un intervalle de temps spécifié a été ajouté.

Syntaxe

DateAdd(interval, number, date)

Arguments :

  • interval : requis. Expression de chaîne représentant l'intervalle à ajouter. Pour connaître les valeurs, reportez-vous à la section Paramètres.
  • number : requis. Expression numérique représentant le nombre d'intervalles à ajouter. Cette expression peut être positive, pour les dates futures, ou négative, pour les dates passées.
  • date : requis. Variante ou valeur littérale représentant la date à laquelle l'intervalle est ajouté.

Paramètres : l'argument interval peut avoir les valeurs ci-après.

Tableau 11-9 Valeurs de l'argument interval

Paramètre Description
yyyy Année
q Trimestre
m Mois
d Jour
w Jour de la semaine
h Heure
n Minute
s Seconde

Formats de date pris en charge :

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

Format d'heure pris en charge :

hh:mm:ss

Remarques

Vous pouvez utiliser la fonction DateAdd pour ajouter un intervalle de temps spécifié à une date, ou pour l'en soustraire. Par exemple, vous pouvez utiliser DateAdd pour calculer la date dans 10 jours ou l'heure qu'il sera dans 45 minutes. Pour ajouter des jours à une date, vous pouvez utiliser le paramètre de jour ("d") ou de jour de la semaine ("w").

Le format de date de sortie repose sur le format de date courte du système.

Les exemples suivants illustrent l'utilisation de la fonction DateAdd :

Exemple 1 :

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

Exemple 2 :

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

Exemple 3 :

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

Exemple 4 :

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

Exemple 5 :

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

Exemple 6 :

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

Exemple 7 :

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

Exemple 8 :

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