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 !





Coucou et merci


  Accueil - Disques - Excel - Informatique - Infos - Internet - Javascript - logiciels  - Programation - Sites RJ - Vidéo - Plan du site -



   

Les dates en  super 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 : FEVRIER 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



-
vues  2647     En ligne actuellement :   2   Total des clics  1737465