Discussion :

[sundjata]

Bonjour a tous,
Je voudrais savoir si il est possible de recupérer le nom du jour en lettre (Monday , Tuesday , .... ) a partir d'une variable de type date
Merci

[Delbeke]

On peut utiliser l'instruction format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim JourSemaine as string
JourSemaine = Format(Date,"dddd")

[sundjata]

merci beaucoup

[thierry007]

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #Janvier 27, 1993#

' Renvoie l'heure système courante dans le format long défini par le 'système.
MyStr = Format(Time, "Heure, complet")

' Renvoie la date système courante dans le format long défini par le 'système.
MyStr = Format(Date, "Date, abrégé")

MyStr = Format(MyTime, "h:m:s") ' Renvoie "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Renvoie "05:04:23 PM".
MyStr = Format(MyDate, "jjjj j mmm yyyy") ' Renvoie "Vendredi 27 janvier
'1993"
' Si aucun format n'est spécifié, une chaîne est renvoyée.
MyStr = Format(23) ' Renvoie "23".

' Formats définis par l'utilisateur.
MyStr = Format(5459.4, "##,##0.00") ' Renvoie "5 459,40".
MyStr = Format(334.9, "###0.00") ' Renvoie "334,90".
MyStr = Format(5, "0.00%") ' Renvoie "500,00%".
MyStr = Format("BONJOUR", "<") ' Renvoie "bonjour".
MyStr = Format("Et voilà!", ">") ' Renvoie "ET VOILÀ!".



A+ et bonne route