Renvoie une donnée de type Chaîne représentant le nombre de secondes écoulées depuis minuit.
Syntaxe
Timer
Remarques
Dans Microsoft Windows, la fonction Timer retourne des fractions de seconde. Sur Macintosh, la résolution du minuteur est d’une seconde.
Exemple de requête
|
Expression |
Résultats |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer() ; |
Retourne le nombre de secondes écoulées depuis minuit en fonction de l’heure système et s’affiche dans la colonne SecondsPast. |
Exemple VBA
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Timer pour suspendre 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
