Returnerer et flyttall som representerer antall sekunder siden midnatt.
Syntaks
Timer
Merknader
I Microsoft Windows returnerer tidtakerfunksjonen brøkdeler av et sekund. På Macintosh er tidtakeroppløsningen ett sekund.
Eksempel på spørring
|
Expression |
Resultater |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Returnerer antall sekunder som er gått siden midnatt, basert på systemtiden og vises i kolonnen SecondsPast. |
VBA-eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker tidtakerfunksjonen til å stanse programmet midlertidig. Eksemplet bruker også DoEvents til å gi etter for andre prosesser 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
