Функция

Timer

Синтаксис

Timer

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

Параметры

Функция не имеет никаких параметров.

Замечания

Значение, возвращаемое таймером, ограничено числом секунд в сутках и обнуляется ровно в полночь. Для точных расчетов используйте API функции, например timeGetTime.

Пример использования

'в данном примере функция Timer используется для временной остановки
'приложения, кроме того, в нем используется инструкция DoEvents ,
'организующая передачу управления другим процессам на время паузы.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Нажмите Да, чтобы прервать выполнение на 5 секунд", 4)) = vbYes Then
  PauseTime = 5 'задает длительность
  Start = Timer 'задает начало паузы
  Do While Timer < Start + PauseTime
    DoEvents 'передает управление другим процессам
  Loop
  Finish = Timer 'задает конец паузы
  TotalTime = Finish - Start 'вычисляет длительность паузы
  MsgBox "Длительность паузы: " & TotalTime & " секунд"
Else
  End
End If

Дополнительная информация

Категория: Обработка данных дата/время

Еще функции: Date, DateAdd, DateDiff, DatePart, DateSerial, DateValue, Day, Hour, Minute, Month, MonthName, Now, Second, Time, Timer, TimeSerial, TimeValue, WeekDay, WeekDayName, Year

Логин:

Пароль:

Регистрация, забыли пароль?