Fonction FormatDateTime
Renvoie une expression formatée en tant que date ou heure.
Syntaxe
FormatDateTime(Date[,NamedFormat])
Arguments :
- Date : requis. Expression de date à formater.
Remarque :
- Si une chaîne est fournie en entrée, les séparateurs utilisés dans la date et/ou l'heure d'entrée doivent être identiques à ceux de l'environnement local propres au système. Les caractères spéciaux tels qu'illustrés sur l'image suivante ne sont pas pris en charge :
. - Le nombre de jours ne doit pas être indiqué comme argument d'entrée. Cette option n'est pas prise en charge.
- Le format de la date, du mois et de l'année doit être complet. Par exemple : 08/02/2024. Les formats abrégés tels que 8/2/24 ne sont pas pris en charge.
- Si une chaîne est fournie en entrée, les séparateurs utilisés dans la date et/ou l'heure d'entrée doivent être identiques à ceux de l'environnement local propres au système. Les caractères spéciaux tels qu'illustrés sur l'image suivante ne sont pas pris en charge :
- NamedFormat : facultatif. Valeur numérique indiquant le format de date et d'heure utilisé. En cas d'omission, vbGeneralDate est utilisé. Pour connaître les valeurs, reportez-vous à la section Paramètres.
Paramètres : l'argument NamedFormat dispose des paramètres ci-après.
vbGeneralDate : pour obtenir la date au format général, indiquez la valeur 0.
Affiche une date et/ou une heure. S'il existe un élément de date, il est affiché sous forme de date courte. S'il exsite un élément d'heure, il est affiché sous forme d'heure longue. Si ces deux éléments sont disponibles, ils sont tous les deux affichés.
Exemple 1 :
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,0) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,0) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,0) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,0) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,0) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,0) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,0) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbLongDate : pour obtenir une date longue, indiquez la valeur 1.
Affiche une date en utilisant le format de date longue spécifié dans les paramètres régionaux de votre ordinateur.
Remarque :
La date longue affiche le contenu uniquement en caractères de l'alphabet romain et l'analyse en jours de la semaine n'est pas prise en charge.Exemple 2 :
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,1) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,1) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,1) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,1) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,1) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,1) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,1) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbShortDate : pour obtenir la date courte, indiquez la valeur 2.
Affiche une date en utilisant le format de date courte spécifié dans les paramètres régionaux de votre ordinateur.
Exemple 3 :
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,2) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,2) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,2) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,2) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,2) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,2) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,2) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbLongTime : pour obtenir une heure longue, indiquez la valeur 3.
Affiche une heure en utilisant le format d'heure spécifié dans les paramètres régionaux de votre ordinateur.
Remarque :
L'heure longue affiche le contenu uniquement en caractères de l'alphabet romain, par exemple avec les expressions AM et PM.Exemple 4 :
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,3) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,3) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,3) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,3) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,3) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,3) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,3) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbShortTime : pour obtenir une heure courte, indiquez la valeur 4.
Affiche une heure au format 24 heures (hh:mm).
Exemple 5 :
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,4) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,4) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,4) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,4) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,4) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,4) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,4) 'Output: - ERROR as delimiter should be same as locale’s delimiter