Returner en enkelt, der repræsenterer det antal sekunder, der er forløbet siden midnat.
Syntaks
Timer
Bemærkninger
I Microsoft Windows returnerer timerfunktionen decimaler i et sekund. På Macintosh er timeropløsningen et sekund.
Eksempel på forespørgsel
|
Udtryk |
Resultater |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Returnerer det antal sekunder, der er forløbet siden midnat, baseret på systemtiden og vises i kolonnen SecondsPast. |
VBA-eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges timerfunktionen til at afbryde programmet midlertidigt. I eksemplet bruges også DoEvents til at give til andre 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
