Fonction de minuteur

  • Article

Renvoie une valeur de type Single qui représente le nombre de secondes écoulées depuis minuit.

Syntaxe

Timer

Remarques

Dans Windows, la fonction Timer retourne des fractions de seconde. Sur Macintosh, la résolution de mesure du temps correspond à la seconde.

Exemple

Dans cet exemple, la fonction Timer permet de mettre en pause l’application. L’exemple utilise également DoEvents pour céder à d’autres processus pendant la pause.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.