Les dates et les heures en VBA : Date, Now, DateSerial, DateAdd, Year, Hour, IsDate et CDate

On déclare une date avec Dim d As Date. La variable peut recevoir une date, une heure ou les deux. Une valeur écrite directement dans le code se place entre dièses : #10/5/2026#. Attention, entre dièses VBA lit toujours le format américain mois/jour/année, quels que soient les paramètres de Windows. Une variable Date non initialisée vaut 0, c’est-à-dire le 30/12/1899 à 00:00:00.

Date renvoie la date du jour, à minuit (partie décimale nulle). Now renvoie la date et l’heure, Time l’heure seule. Ces fonctions n’ont pas d’argument : l’éditeur VBA retire d’ailleurs les parenthèses. Elles lisent l’horloge du PC à chaque appel. Timer, qui compte les secondes depuis minuit, sert à mesurer la durée d’une macro.

DateSerial(année, mois, jour) construit une date à partir de trois nombres, sans aucune ambiguïté de format : c’est la méthode recommandée dans le code. Les valeurs hors limites sont reportées : le mois 13 donne janvier de l’année suivante, le jour 0 le dernier jour du mois précédent. TimeSerial(heure, minute, seconde) fait de même pour une heure.

Puisqu’une date est un nombre de jours, on calcule avec les opérateurs habituels. d + 30 donne la date 30 jours plus tard, d - 7 une semaine plus tôt. La différence de deux dates d2 - d1 est un nombre de jours, décimal si les heures diffèrent. Pour des heures, ajoutez une fraction de jour : 1 heure = 1/24, ou mieux TimeSerial(1, 0, 0).

DateAdd(intervalle, nombre, date) ajoute (ou retire, avec un nombre négatif) des années, trimestres, mois, semaines, jours, heures, minutes ou secondes. L’intervalle est un texte : "yyyy", "q", "m", "ww", "d", "h", "n" (minutes), "s". Quand le jour n’existe pas dans le mois d’arrivée, DateAdd s’arrête au dernier jour du mois. DateDiff(intervalle, date1, date2) fait l’inverse : elle compte les intervalles entre deux dates.

Year(d), Month(d) et Day(d) renvoient l’année, le mois (1 à 12) et le jour (1 à 31). Weekday(d) renvoie le jour de la semaine sous forme de nombre de 1 à 7. Par défaut, la semaine commence le dimanche : dimanche = 1, lundi = 2. Ajoutez vbMonday en second argument pour que lundi = 1. MonthName et WeekdayName donnent les noms en toutes lettres.

Hour(t) renvoie l’heure (0 à 23), Minute(t) les minutes et Second(t) les secondes (0 à 59). Elles acceptent une heure seule ou une date complète : Hour(Now) donne l’heure actuelle. Pour convertir une heure en minutes depuis minuit, on combine : Hour(t) * 60 + Minute(t).

Une date saisie dans une InputBox ou importée d’un fichier texte est d’abord un texte. IsDate(texte) indique si VBA sait le convertir. CDate(texte) le convertit en date complète, DateValue n’en garde que la date et TimeValue que l’heure. La conversion suit les paramètres régionaux : en France, « 05/10/2026 » est le 5 octobre. Un texte non reconnu provoque l’erreur 13 : testez IsDate avant de convertir.