Pateikia reikšmę Viengubas, žyminčią nuo vidurnakčio praėjusių sekundžių skaičių.
Sintaksė
Timer
Pastabos
Programoje "Microsoft Windows" laikmačio funkcija grąžina sekundės trupmenines dalis. "Macintosh" laikmačio skiriamoji geba yra viena sekundė.
Užklausos pavyzdys
Reiškinys |
Rezultatai |
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Grąžina nuo vidurnakčio praėjusių sekundžių skaičių pagal sistemos laiką ir rodomas stulpelyje SecondsPast. |
VBA pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje laikmačio funkcija pristabdoma programa. Pavyzdyje taip pat naudojami DoEvents , kad pauzės metu išeitų kiti procesai.
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