TIMER REALISER AVEC LA FONCTION DATEDIFF ...

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 !!!

Télécharger le zip