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
|