Ce tutoriel montrera comment obtenir la date d'aujourd'hui en VBA.
Il existe plusieurs façons d'obtenir la date d'aujourd'hui en code VBA, à savoir en utilisant le VBA Date() fonction ou le VBA Maintenant() les fonctions.
Fonction Date()
Les Date() La fonction nous permet d'attribuer la date d'aujourd'hui à une variable, puis d'afficher la date dans la fenêtre immédiate de l'éditeur VBE pour voir la date d'aujourd'hui.
| 123 | Dim dtAujourd'hui comme datedtAujourd'hui = Date()Debug.Print dtAujourd'hui |
Alternativement, nous pouvons afficher la date dans une boîte de message.
| 12345 | Date du sous-testDim dtAujourd'hui comme datedtAujourd'hui = Date()Msgbox "La date d'aujourd'hui est " & dtTodayFin du sous-marin |
Fonction Now()
Les Maintenant() La fonction fonctionne de la même manière que la fonction date, mais elle inclut l'heure.
| 12345 | Date de sous-test()Dim dtAujourd'hui en tant que datedtAujourd'hui = Maintenant()MsgBox "La date d'aujourd'hui est " & dtTodayFin du sous-marin |
Formater les dates avec VBA
Dans les deux Date() et le Maintenant() fonctions, la date est formatée dans un style par défaut tel que déterminé par les paramètres de notre PC. Nous pouvons personnaliser cette mise en forme en utilisant le VBA Format fonction. Comme la fonction format renverra une chaîne, nous devons déclarer un CHAÎNE DE CARACTÈRES variable plutôt qu'un DATE variable.
| 12345 | Date de sous-test()Dim dtToday en tant que chaînedtAujourd'hui = Format (Date, "jj mmmm aaaa")MsgBox "La date d'aujourd'hui est " & dtTodayFin du sous-marin |
Nous pouvons également formater le Maintenant() pour inclure la portion de temps dans un format personnalisé.
| 12345 | Sous FormatMaintenant()Dim dtToday en tant que chaînedtAujourd'hui = Format(Maintenant(), "jj mmmm aa hh:mm:ss am/pm")MsgBox dtAujourd'huiFin du sous-marin |
Comparer 2 dates avec VBA
Nous pouvons également utiliser la fonction Date pour comparer la date d'aujourd'hui avec une date différente - nous pourrions vouloir calculer combien de jours il reste avant un événement ! Nous pouvons le faire en utilisant le VBA DiffDate() fonction qui renverra un nombre. On peut donc déclarer uneENTIER variable dans laquelle stocker la valeur renvoyée.
| 123456789 | Sous TestDateDiff()Dim dtAujourd'hui en tant que dateDim dtSomeDay comme dateDim iDays en tant qu'entierdtAujourd'hui = DatedtUnJour = "05/06/2021"iDays = DateDiff("d", dtAujourd'hui, dtUnJour)MsgBox "Il y a " & iDays & " jours entre les 2 dates"Fin du sous-marin |
Comme les dates sont stockées sous forme de nombres, nous pourrions également soustraire la deuxième date de la première pour obtenir la même réponse.
| 1 | iDays = dtAujourd'hui - dtUnJour |
