Manipuler les dates et les heures

Ne pas confondre valeur et format

Un point important, avant d’aller plus avant dans ce chapitre, est la distinction entre ce que vous voyez dans une cellule et la valeur correspondante (numéro de série). Beaucoup de personnes font l’erreur de se concentrer uniquement sur le format ou le texte affiché dans une cellule plutôt que de privilégier la « vraie » date disponible dans la cellule.

Il est certain que pour les personnes qui n’évoluent que dans leur entreprise, localement, sans avoir de fichier envoyé ni à envoyer à l’international, cette notion peut paraître inutile, mais lorsque vous recevez des fichiers avec une date 05/06/23, il est important pour vous d’être certain qu’il s’agisse du 5 juin 2023, du 6 mai 2023 ou encore du 23 juin 2005 ! Chaque utilisateur ayant ses propres paramètres régionaux, vous n’avez que peu de certitude en lisant simplement un format d’affichage. La valeur qui est réellement contenue dans la cellule sera affichée si vous cliquez sur le bouton  Afficher les formules de l’onglet Formules. Et si vous obtenez 45082, alors vous saurez qu’il s’agit du 5 juin 2023 !

Privilégier une année sur quatre chiffres

Lorsque vous travaillez avec les dates, vous disposez en principe des trois valeurs...

Fonction date du jour Date()

Lorsque vous avez besoin de travailler avec la date du jour, la fonction Date() de VBA vous donne cette valeur. Cette fonction ne prend aucun paramètre et peut être utilisée avec ou sans les parenthèses.

Dim dtDateDuJour As Date 
dtDateDuJour = Date 'si aujourd'hui nous somme le 25 juillet 2023, alors  
la variable dt prendra cette valeur #2023/07/25#. 

Exemple 3 : utilisation de la fonction Date()

La date correspond à la date système. Elle peut être utilisée de plusieurs façons comme nous allons le voir dans les paragraphes suivants.

Fonction date et heure du système : Now()

Lorsque vous travaillez en utilisant par exemple plusieurs fois dans la même journée un traitement spécifique, il vous faut, en plus de la date du jour, l’heure exacte du système. La fonction Now() remplit cette tâche. Elle ne prend aucun paramètre et renvoie la date du jour, complétée de l’heure du système.

Dim dtHeureSysteme As Date 
dtHeureSysteme = Now 

Exemple 4 : utilisation de la fonction Now()

Il sera par la suite possible de travailler sur les différentes parties de ces dates et heures renvoyées...

Affecter une date précise : DateSerial()

La fonction qui permet de retourner une date précise est DateSerial(). Cette fonction prend en paramètre trois valeurs : l’année, le mois et le jour, et sa syntaxe générale est la suivante :

DateSerial(Annee As Integer, Mois As Integer, Jour As Integer) 

Exemple 5 : syntaxe générale de la fonction DateSerial()

Ainsi, il vous suffit de fournir les informations pour affecter ensuite la valeur de type Date à votre variable.

Dim dt1erAvril2023 As Date 
dt1erAvril2023 = DateSerial(2023,4,1) 

Exemple 6 : utilisation de la fonction DateSerial()

Cette fonction a également comme particularité de toujours retourner une date valide, pour peu que la date correspondante tombe dans l’intervalle reconnu par VBA.

Debug.Print DateSerial(2023, 2, 29) ' retournera le 1er mars 2023 
Debug.Print DateSerial(2024, -5, 10) ' retournera le 10 octobre 2023 
Debug.Print DateSerial(2023, 0, 25) 'retournera le 25 décembre 2022 
Debug.Print DateSerial(2023, 0, 50) 'retournera le 19 janvier...

Par addition numérique

Comme vous le savez à présent, le mode de fonction des dates se fait par valeur entière pour les jours. Aussi pour ajouter un jour à une date, pour connaître la date du lendemain, il suffit d’effectuer une addition avec le symbole d’addition +, comme dans l’exemple suivant.

Dim dt As Date 
dt = Date + 1 
'la variable contient à présent la date de demain 

Exemple 10 : addition d’une valeur numérique à une date

De la même façon, si vous souhaitez savoir la date et l’heure 8 heures plus tôt qu’une date, cela s’effectuera avec le symbole de soustraction -, comme dans l’exemple suivant.

Dim dt As Date 
dt = #3/5/2023 9:35:00 PM# - (8 / 24) 'rappel, une heure = 1/24 de jour, 
une minute = 1/(24*60) et une seconde = 1/(24*60*60) 
' la variable dt contiendra alors la valeur #2023-03-05 1:35PM# 

Exemple 11 :...

Année, mois ou jour d’une date : Year(), Month(), Day()

Lorsqu’il s’agit de connaître une partie d’une date, les trois fonctions les plus simples sont Year(), Month() et Day() qui prennent chacune en paramètre une date et retournent sous forme de valeur numérique entière respectivement l’année, le mois et le jour du mois. Leur syntaxe générale est la suivante :

Dim iAnnee As Integer, iMois As Integer, iJour As Integer 
Dim dt As Date 
'affecter à dt une date 
iAnnee = Year(dt) 
iMois = Month(dt) 
iJour = Day(dt) 

Exemple 14 : utilisation des fonctions Year(), Month() et Day() sur une date

Ainsi, avec la date du 26 juillet 2023, les variables se verront affecter les valeurs suivantes :

Dim iAnnee As Integer, iMois As Integer, iJour As Integer 
Dim dt As Date 
dt = #7/26/2023# 
iAnnee = Year(dt) '2023 
iMois = Month(dt) '7 
iJour = Day(dt) '26 

Exemple 15 : valeurs retournées par les fonctions Year(), Month() et Day()

Les valeurs retournées par la fonction Month() vont de 1 à 12 et celles par la fonction Day() de 1 à 31.

Jour de la semaine d’une date : WeekDay()

Lorsqu’il vous importe de savoir si une date tombe un lundi, un mercredi ou durant un week-end, VBA met à votre disposition la fonction WeekDay(). Cette fonction a pour syntaxe générale la suivante :

WeekDay(date, [PremierJourDeLaSemaine]) 

Exemple 16 : syntaxe générale de la fonction WeekDay()

Le premier paramètre de cette fonction est la date sur laquelle vous cherchez à travailler, et le second paramètre le premier jour de la semaine. En effet, si votre semaine commence le lundi, le mardi sera le jour 2, alors que si elle commence le dimanche, le mardi sera le jour 3.

Les valeurs possibles de ce second paramètre sont les suivantes :

La fonction retourne une valeur comprise entre 1 et 7, selon le tableau suivant :

Voici des exemples sur quelques dates :

Debug.Print Weekday(#11/11/1918#) 'retourne 2 - Lundi,    vbMonday 
Debug.Print Weekday(#1/1/2000#)   'retourne 7 - Samedi,   vbSaturday 
Debug.Print Weekday(#8/15/1969#)  'retourne 6 - Vendredi, vbFriday 
Debug.Print Weekday(#7/20/1969#)  'retourne 1 - Dimanche, vbSunday 

Exemple 17 : usage de la fonction...

Fonction spécifique : FormatDateTime()

La première fonction dédiée pour le formatage des dates est FormatDateTime(). La syntaxe générale de cette fonction est la suivante :

FormatDateTime(valeur, [FormatNomme As vbDateTimeFormat]) 

Exemple 23 : syntaxe générale de la fonction FormatDateTime()

La fonction retourne une chaîne de caractères, comme dans l’exemple suivant :

Debug.Print FormatDateTime(#2023/07/29 10:35:14#, vbShortDate) 'affiche 2023/07/29 

Exemple 24 : usage de la fonction FormatDateTime()

Parmi les formats disponibles pour les dates, vous pouvez utiliser les constantes VBA suivantes :

Ce texte est-il une date valide : IsDate()

Avant de vouloir transformer une chaîne de caractères en type Date, il est pertinent de s’assurer en amont que la chaîne correspond bien à une date valide. La fonction IsDate()est faite pour cela. La syntaxe générale de cette fonction est la suivante :

Function IsDate(ValeurATester) As Boolean 

Exemple 27 : syntaxe générale de la fonction IsDate()

Cette fonction retourne un booléen. Si la ValeurATester peut être interprétée comme une date, une heure ou une date et heure valides, alors la fonction retourne True.

Quelques exemples de valeurs qui peuvent être testées avec IsDate() :

Debug.Print IsDate("23-jan") 'Vrai 
Debug.Print IsDate("29-fev") 'Faux 
Debug.Print IsDate("15:10:45") 'Vrai 
Debug.Print IsDate("35:10:00") 'Faux 

Exemple 28 : exemples de retours de la fonction IsDate()

Récupérer la date, l’heure ou l’ensemble d’une chaîne : DateValue()...

Afficher la date et l’heure système

Créer une date et une heure

Additions et soustractions