Office

Функция Timer

Возвращает значение типа Single, указывающее число секунд, прошедшее с момента полуночи.

Синтаксис

Timer

Замечания

В Microsoft Windows функция Timer возвращает дробные части секунды. Разрешение таймера для Macintosh — одна секунда.

Пример запроса

Выражение

Результаты:

Выберите Timer () в качестве Секондспаст от Продуктсалес GROUP BY Timer ();

Возвращает количество секунд, прошедшее с полуночи на основе системного времени и отображаемого в столбце Секондспаст.

Пример 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

Примечание:  Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Совершенствование навыков работы с Office
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×