Повертає значення типу 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, TotalTimeIf (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 EndEnd If
