Функция Timer

Timer

Функция Timer используется для получения числа секунд, прошедших с полуночи до текущего момента дня

Возвращаемое значение

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

Параметры

Не содержит аргументов

Пример

' Используем 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
Категория
Функции дат и времени