Функция 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