次の方法で共有


タイマー関数

午前 0 時からの経過秒数を表す単精度浮動小数点数型 (Single) の値を返します。

構文

Timer

注釈

Windows では、 Timer 関数は秒の小数部を返します。 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

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。