ZeitgeberfunktionTimer function

Gibt einen Single-Wert zurück, der die Anzahl der Sekunden angibt, die seit Mitternacht vergangen sind.Returns a Single representing the number of seconds elapsed since midnight.

SyntaxSyntax

ZeitgeberTimer

HinweiseRemarks

In Windows gibt die Zeitgeberfunktion Bruchteile einer Sekunde zurück.In Windows, the Timer function returns fractional portions of a second. Auf einem Macintosh-Computer beträgt die Auflösung des Zeitgebers eine Sekunde.On the Macintosh, timer resolution is one second.

BeispielExample

In diesem Beispiel wird die Zeitgeberfunktion verwendet, um die Anwendung anzuhalten.This example uses the Timer function to pause the application. Zudem werden in diesem Beispiel DoEvents verwendet, um während der Unterbrechung andere Prozesse durchzuführen.The example also uses DoEvents to yield to other processes during the pause.

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 auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.