Tagastab lihttäpsusega arvu, mis näitab keskööst möödunud sekundite arvu.
Süntaks
Timer
Kommentaarid
Microsoft Windowsis tagastab funktsioon Timer sekundi murdosad. Macintoshi korral on ajasti täpsus üks sekund.
Päringu näide
| Avaldis | Tulemid |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Tagastab süsteemiaja põhjal keskööst möödunud sekundite arvu ja kuvab veerus SecondsPast . |
VBA näide
Märkus.
Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites kasutatakse funktsiooni Timer rakenduse peatamiseks. Pausi ajal teiste protsesside lubamiseks kasutatakse selles näites funktsiooni DoEvents.
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