Freigeben über


Timer-Funktion

Gibt einen Single-Wert zurück, der die Anzahl der Sekunden angibt, die seit Mitternacht vergangen sind.

Syntax

Timer

Hinweise

In Windows gibt die Timer-Funktion Bruchteile einer Sekunde zurück. Auf einem Macintosh-Computer beträgt die Auflösung des Timers eine Sekunde.

Beispiel

In diesem Beispiel wird die Timer-Funktion verwendet, um die Anwendung anzuhalten. Zudem werden in diesem Beispiel DoEvents verwendet, um während der Unterbrechung andere Prozesse durchzuführen.

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

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.