Pateikia reikšmę Viengubas, žyminčią nuo vidurnakčio praėjusių sekundžių skaičių.
Sintaksė
Timer
Pastabos
Sistemoje "„Microsoft“ Windows" laikmačio funkcija pateikia sekundės trupmenas. "Macintosh" laikmačio skiriamoji geba yra viena sekundė.
Užklausos pavyzdys
| Išraiška | Rezultatai |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Pateikia nuo vidurnakčio praėjusių sekundžių skaičių pagal sistemos laiką ir rodo 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 programa pristabdoma naudojant laikmačio funkciją. Pavyzdyje taip pat naudojami DoEvents , kad pauzės metu būtų pasiduoti kitiems procesams.
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