Повертає значення типу Single, що представляє кількість секунд, які минули від півночі.
Синтаксис
Timer
Примітки
У Microsoft Windows функція таймера повертає дробові частини секунди. У системі Macintosh роздільна здатність таймера становить одну секунду.
Приклад запиту
| Вираз | Результати. |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Повертає кількість секунд, які минули від півночі, на основі системного часу та відображає в стовпці SecondsPast. |
Приклад VBA
Примітка.
У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі функцію Таймер використано для призупинення програми. У прикладі також використовуються 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