Forums PureBasic - Français
http://forums.purebasic.com/french/
+1djes a écrit :Salut ! Quand tu trouves quelque chose, fais partager, ça ne prend qu'une seconde, et ça fait vivre le forum ! Merci
Tu as raison de ne pas y croire et je pense que tu as trouvé la solution en utilisant la fonction FormatDate(Mask$, Date)YvesRossignol a écrit :... mais je ne peux croire qu'il n'y a pas de fonction pour afficher la date d'aujourd'hui dans un gadget....
Code : Tout sélectionner
OpenWindow(0, 0, 0, 400, 300, "Afficher une date", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
TextGadget(#PB_Any, 10, 12, 80, 22, "Nous sommes le")
StringGadget(0, 90, 10, 70, 22, "")
;Afficher la date du jour
SetGadgetText(0, FormatDate("%mm/%dd/%yyyy", Date()))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindowCode : Tout sélectionner
OpenWindow(0, 0, 0, 400, 300, "Afficher une date", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
TextGadget(#PB_Any, 10, 12, 80, 22, "Nous sommes le")
DateGadget(0, 90, 10, 80, 22, "")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindowCode : Tout sélectionner
Date$ = FormatDate("%yyyy/%mm/%dd", Date())
Time$ = FormatDate("%hh:%ii:%ss", Date())
SetGadgetText(#Gadget_Gestion_aujourd,Date$+Chr(32)+Time$)