comment faire pour mettre l'heure et la date sur un label?

Question

: comment puis-je mettre la date et l'heure dans un seul label style :

Exemple:

  11h : 30m : 39s [22/01/05] 

merci de votre aide...
 
(ma question parait &#233;paisse mais elle est d'un interet tel de savoir il est quelle heure quand on gosse longtemps avec son programme...) Bon je s&#233; il y a l'heure dans le systray mais kand meme!!!!!

Une tarte au pommes sans pommes n'est pas une tarte aux pommes.... mais une tarte &#224;... RIEN!

bilaloch · Answer

Bonjour,

Met un timer sur ta feuille et met ca dans Timer1_Timer :

Private Sub Timer1_Timer()
Label1.Caption = Format(Time) & "   " & Format(Date)
End Sub

Voila.

@ Plus 

BIL@Loch

bilaloch · Answer

PS : La propri&#233;t&#233; "Interval" de ton "Timer" ne doit pas &#234;tre egal a 0. Met la a 1000 par exemple.

Merci et @ Plus 

BIL@Loch

Gobillot · Answer

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = Now
End Sub

Daniel

bilaloch · Answer

Bonjour,

Oui, ce qu'a ecrit Gobillot, c'est pour que tout soit fait qu'avec le code. C'est a dire, il n'y a plus qu'a mettre un "Timer" et un "Label", et ca fonctionne.

Merci et @ Plus 

BIL@Loch

Fullnet Software · Answer

&#382;merci !!!

Une tarte au pommes sans pommes n'est pas une tarte aux pommes.... mais une tarte &#224;... RIEN!

Comment faire pour mettre l'heure et la date sur un label?

5 réponses

Discussions similaires