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