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