La fonction FormatDateTime dans VBA permet de réaliser une macro pour pour formater sous forme de date.
La fonction FormatDateTime
La fonction VBA FormatDateTime suit la syntaxe suivante :
FormatDateTime(variable,format)
où :
- variable correspond à la chaine à analyser
- format correspond au format de date et peut prendre les valeurs suivantes :
- vbGeneralDate : date et /ou heure au format par défaut
- vbShortDate : date au format court
- vbLongDate : date au format long
- vbShortTime : heure au format hh:mm sur 24 heures
- vbLongTime : heure au format spécifié dans les paramètres de l'ordinateur
Exemple de macro avec FormatDateTime
La macro
Sub nommacro()
Dim i As Integer
For i = 1 To 5
'Résultat dans Ligne de 1 à 5, Colonne 2
Cells(i, 2).Value = FormatDateTime(Cells(i, 1))'Résultat dans Ligne de 1 à 5, Colonne 3
Cells(i, 3).Value = FormatDateTime(Cells(i, 1), vbShortDate)Next i
End Sub
Les données sources
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 43831 | 43831 | 43831 | ||
| 2 | 44707,62 | 26/05/2022 14:52:48 | 26/05/2022 | ||
| 3 | 45601,7724 | 45423,7723958333 | 45423 | ||
| 4 | 46513,807848 | 46543,8078472222 | 46543 | ||
| 5 | 47444,08400496 | 22/11/2029 02:00:58 | 22/11/2029 |
Le résultat
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 43831 | 43831 | 43831 | ||
| 2 | 44707,62 | 26/05/2022 14:52:48 | 26/05/2022 | ||
| 3 | 45601,7724 | 45423,7723958333 | 45423 | ||
| 4 | 46513,807848 | 46543,8078472222 | 46543 | ||
| 5 | 47444,08400496 | 22/11/2029 02:00:58 | 22/11/2029 |