Vraća vrijednost Single koja označava broj sekundi proteklih od ponoći.
Sintaksa
Timer
Napomene
U sustavu Microsoft Windows funkcija mjerača vremena vraća decimalne dijelove sekunde. Na uređaju Macintosh razlučivost mjerača vremena je jedna sekunda.
Primjer upita
Izraz |
Rezultati |
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Vraća broj sekundi proteklih od ponoći na temelju sistemskog vremena i prikazuje se u stupcu SecondsPast. |
Primjer VBA-a
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 aplikacija pauzira pomoću funkcije Timer. U primjeru se doEvents koristi i za prinos na druge procese 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