Функция timer

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

Синтаксис

Timer

Примечания

В Windows функция Timer возвращает дробные части секунды. На компьютерах Macintosh разрешающая способность таймера равна одной секунде.

Пример

В этом примере функция 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 VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.