Bonjour     visiteurs jour : 9     Total clics   :   1233506       Sites associés 

Les joies de l'informatique et de l'internet !





Coucou et merci


 
Clics 314

Dates en VBA


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)
Range("A1") = Format(date_test, "dd.mm.yy") 'Renvoie : 07.02.12

Format(date_test, "dddd d mmmm yyyy") 'Renvoie : mardi 7 février 2012


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("A6") = UCase(Format(date_test, "mmmm yyyy")) 'Renvoie : FÉVRIER 2012


Range("A7") = Format(date_test, "dd.mm.yyyy hh:mm") 'Renvoie : 07.02.2012 09:09

Range("A8") = Format(date_test, "Le d mmmm à hhmm'ss''") 'Renvoie : Le 7 février à 9h09'02''
Range("A9") = Format(date_test, "hHmm") 'Renvoie : 9H09





Dates en vba

Vos messages sont modérés.   Les visiteurs non inscrits ont leur pseudo préfixé par x_.   Merci de respecter la loi et les personnes.

Votre message -->

Classement
par date
croissante.
décroissante.
Vous
inaugurez
ce forum,
félicitations.
Pseudo     Le 28-5-2018.   Titre  

 

Total des visiteurs  :    489381   dont aujourd'hui :   9    En ligne actuellement :  1      Total des clics   1233506