Bonjour. visiteurs jour : 4
Au président
Beauté santé
Infos loisirs
Ensemble
Jean
Informatique
Relativité
Relativity
Les joies de l'informatique et de l'internet !
Accueil - Disques - Excel - Informatique - Infos - Internet - Javascript - logiciels - Programation - Sites RJ - Vidéo - Plan du site -
http://www.excel-pratique.com/fr/astuces_vba/format_dates.php Caractères Exemple Description d 7 Jour (numérique sans zéro) dd 07 Jour (numérique avec zéro) ddd mar. Jour (texte raccourci) dddd mardi Jour (texte entier) m 2 Mois(numérique sans zéro) mm 02 Mois (numérique avec zéro) mmm févr Mois (texte raccourci) mmmm février Mois (texte entier) yy 12 Année (2 derniers chiffres) yyyy 2012 Année (4 chiffres) h 8 Heures sans zéro (0-23) hh 08 Heures avec zéro (00-23) n 3 Minutes sans zéro (0-59) nn 03 Minutes avec zéro (00-59) s 8 Secondes sans zéro (0-59) ss 08 Secondes avec zéro (00-59) Date_test = Now() 'Now renvoie la date et l'heure en cours (07.02.2012 09:09:02) Format(date_test, "dddd d mmmm yyyy") 'Renvoie : mardi 7 février 2012 Range("A6") = UCase(Format(date_test, "mmmm yyyy")) 'Renvoie : FEVRIER 2012 Range("A8") = Format(date_test, "Le d mmmm à hhmm'ss''") 'Renvoie : Le 7 février à 9h09'02''
Les dates en super VBA ++
Range("A1") = Format(date_test, "dd.mm.yy") Renvoie : 07.02.12
WorksheetFunction.Proper(Format(date_test, "dddd d mmmm yyyy")) Renvoie : Mardi 7 Février 2012
Range("A4") = Format(date_test, "ddd dd") 'Renvoie : mar. 07
Range("A5") = "'"& Replace(UCase(Format(date_test, "ddd dd")), ".", "") 'Renvoie : MAR 07
Range("A7") = Format(date_test, "dd.mm.yyyy hh:mm") 'Renvoie : 07.02.2012 09:09
Range("A9") = Format(date_test, "hHmm") 'Renvoie : 9H09