Returnerar ett värde av datatypen Single som anger antalet sekunder som förflutit sedan midnatt.
Syntax
Timer
Kommentarer
I Microsoft Windows returnerar timer-funktionen decimaler av en sekund. På Macintosh-datorer är timerupplösningen en sekund.
Frågeexempel
|
Uttryck |
Resultat |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Returnerar antalet sekunder som förflutit sedan midnatt baserat på systemtiden och visas i kolumnen SecondsPast. |
VBA-exempel
Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används funktionen Timer för att pausa programmet. I exemplet används även DoEvents för att ge resultat till andra processer under pausen.
Dim PauseTime, Start, Finish, TotalTimeIf (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 EndEnd If
