Daje tip podataka Jednostruki koji predstavlja broj sekundi proteklih od ponoći.
Sintaksa
Timer
Napomene
U operativnom sistemu Microsoft Windows funkcija tajmera vraća delove sekunde izražene u razlomcima. Na Macintosh računaru, rezolucija tajmera je jedna sekunda.
Query example
| Izraz | Rezultati |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Daje broj sekundi proteklih od ponoći na osnovu sistemskog vremena i prikazuje u koloni Prošle sekunde. |
VBA primer
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju tajmera za pauziranje aplikacije. Primer takođe koristi DoEvents da bi popustio drugim procesima tokom 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