計時器函式

會傳回 Single ，代表自午夜之後經過的秒數。

語法

Timer

註解

在 Windows 中， 計時器 函式會傳回一秒的小數部分。 在 Macintosh 上，計時器解析為一秒。

範例

此範例會使用 計時器 函式來暫停應用程式。 此範例也會使用 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 支援與意見反應。