Bonjour à tous
je fais appel à votre aide car j'ai réussis à insérer un chronomètre dans mon fichier
mais il débute à 12:00:00; je ne parviens pas à le faire débuter à 00:00:00 j'ai tenté de
soustraire -12:00:00... est-ce que le code peut vous aider à trouver le problème
Dim dteStart As Date, dteFinish As Date
Dim dteStopped As Date, dteElapsed As Date
Dim boolStopPressed As Boolean, boolResetPressed As Boolean
Private Sub CommandButton1_Click()
TextBox9.Value = Time (le bouton qui inscrit l'heure de départ)
Start_timer:
dteStart = Time 'hrs depart
boolStopPressed = False
boolResetPressed = False
Timer_Loop:
DoEvents
dteFinish = Time 'hrs arret
dteElapsed = dteFinish - dteStart + dteStopped
If Not boolStopPressed = True Then
Label20 = dteElapsed
If boolResetPressed = True Then GoTo Start_timer
GoTo Timer_Loop
Else
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
TextBox10.Value = Time (le bouton d'arrêt qui inscrit l'heure d'arrêt)
boolStopPressed = True
dteStopped = dteElapsed
Label20 = dteElapsed
End Sub
je fais appel à votre aide car j'ai réussis à insérer un chronomètre dans mon fichier
mais il débute à 12:00:00; je ne parviens pas à le faire débuter à 00:00:00 j'ai tenté de
soustraire -12:00:00... est-ce que le code peut vous aider à trouver le problème
Dim dteStart As Date, dteFinish As Date
Dim dteStopped As Date, dteElapsed As Date
Dim boolStopPressed As Boolean, boolResetPressed As Boolean
Private Sub CommandButton1_Click()
TextBox9.Value = Time (le bouton qui inscrit l'heure de départ)
Start_timer:
dteStart = Time 'hrs depart
boolStopPressed = False
boolResetPressed = False
Timer_Loop:
DoEvents
dteFinish = Time 'hrs arret
dteElapsed = dteFinish - dteStart + dteStopped
If Not boolStopPressed = True Then
Label20 = dteElapsed
If boolResetPressed = True Then GoTo Start_timer
GoTo Timer_Loop
Else
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
TextBox10.Value = Time (le bouton d'arrêt qui inscrit l'heure d'arrêt)
boolStopPressed = True
dteStopped = dteElapsed
Label20 = dteElapsed
End Sub