Compteur

Commenter

Contenu du snippet

Vous avez besoin:
- d'un timer ( avec comme interval : 1000 )
- d'un textbox
- d'un form ( heureusement ! )

Affecter votre Temps_Dep dans un évènement tel que Form_Load par ex.

Source / Exemple : 


Option Explicit
Dim Temps_Dep as String

Private Sub Form_Load()
Temps_Dep = Time
End Sub

Private Sub Timer1_Timer()
Dim Secondes As Long
Dim Sec As String
Dim Minutes As Long
Dim Mn As String
Dim Heures As Long
Dim Hr As String

Secondes = DateDiff("s", Temps_Dep, Time)

Heures = Secondes \ 3600
Minutes = Secondes \ 60

Mn = Minutes - (Heures * 60)
Hr = Heures

If Hr < 10 Then
    Hr = "0" & Heures
End If

If Mn < 10 Then
    Mn = "0" & Mn
End If

Sec = Secondes - (Minutes * 60)

If Sec < 10 Then
    Sec = "0" & Sec
End If

    Text1.text = Hr & ":" & Mn & ":" & Sec
End Sub

Conclusion :


Mon but en fait en vous ayant donner ce code est que vous puissiez m'aider à l'améliorer !
En effet, si vous faites bien attention : si on change le temps de l'ordinateur, le compteur
se fausse et si on a quelques autres évènements par derrière, ils sont autant faussés !
Merci de me contacter si vous avez quelque chose de mieux à proposer !
aoncoquin@kukamail.com

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (aoncoquin)