计时器函数

返回表示自午夜以来已过的秒数的 Single 。

语法

Timer

备注

在 Windows 中， 计时器 函数返回秒的小数部分。 在 Macintosh 中，定时器分辨率为 1 秒。

示例

此示例使用 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

另请参阅

• 函数 (Visual Basic for Applications)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。