Discussion :

[andregoub]

bonjour

pouvez vous m'aider je butte sur un code

voila mon probleme je voudrai à l'ouverture de mon programme qu'il m'indique
l'heures system dans un label et aprés la fin du programme qu'il m'indiquent le temps passer sur mon programme
avez vous une solution
Merci pour votre aide
andré

[SfJ5Rpw8]

tiens un peu de code qui pourra peu-être t'inspirer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Dim dDebut As Date
Private Sub Form_Load()
 dDebut = Time
 MsgBox "Depart à : " & dDebut
End Sub
Private Sub Form_Terminate()
 Dim dFin As Date
 dFin = Time
 MsgBox "De " & dDebut & " à " & dFin & " durée (secondes) : " & DateDiff("s", dDebut, dFin)
End Sub