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