Vraća vrijednost Single koja označava broj sekundi proteklih od ponoći.
Sintaksa
Timer
Napomene
U sustavu Microsoft Windows funkcija Timer vraća dijelove sekunde. Na računalu Macintosh razlučivost tajmera iznosi jednu sekundu.
Primjer upita
| Izraz | Rezultati |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Vraća broj sekundi proteklih od ponoći temeljem vremena sustava i prikazuje se u stupcu SecondsPast. |
VBA primjer
Napomena
Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru pauzira aplikacija pomoću funkcije Timer . U primjeru se DoEvents koriste i za prepuštanje drugim procesima tijekom pauze.
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