Timer realiser avec la fonction datediff ...

Soyez le premier à donner votre avis sur cette source.

Vue 9 158 fois - Téléchargée 714 fois

Description

c un ti timer que vous pourez regler jusqu'a +ieurs années

Source / Exemple :


Private Sub go_Click()

Label.Caption = ""
Timer.Enabled = True 'on active le timer
Label3.Caption = Time 'on va faire passer la variable time de l'instant t a la procedure timer_timer par l'intermediaire d'un label

End Sub

Private Sub Timer_Timer()

Dim diff As String  'la variable que l'on va contrôler avec le temps voulu !

Dim min As String    '-|->ici on recuper l'heure a l'aquelle on a cliker sur le bouton (l'instant t) ...
min = Label3.Caption '-|

diff = DateDiff("s", min, Time) 'c la que l'on recupere la difference entre l'instant t et l'instant t+n s

Dim saisie As String

saisie = seconde.Text    'c la que commence la verification
If diff = saisie Then   'et saisie est le temps voulu en seconde
    Beep
    Label.Caption = seconde.Text + " s"
    Timer.Enabled = False
    Exit Sub

End If

End Sub

'petit rapel de la fonction DateDiff
'vous pouvez changer le "s" pour seconde, en "n" pour minute, ou "h" pour heure
'"ww" pour semaine, "d" pour jours, en "m" pour mois, en "q" pour trimestre
'et en "yyyy" pour années
'mais il est evident que des que l'on parle de jours il faudra recuperé la date et non l'heure !!!

Conclusion :


tous est ds le zip c + sympa ;)

Codes Sources

A voir également

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.