Gibt einen Wert des Typs Single zurück, der die Anzahl der Sekunden darstellt, die seit Mitternacht verstrichen sind.
Syntax
Timer
Hinweise
In Microsoft Windows gibt die Timer-Funktion Bruchteile einer Sekunde zurück. Auf dem Macintosh beträgt die Timerauflösung eine Sekunde.
Abfragebeispiel
Ausdruck |
Ergebnisse |
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Gibt die Anzahl der Sekunden zurück, die seit Mitternacht verstrichen sind, basierend auf der Systemzeit und wird in der Spalte SecondsPast angezeigt. |
VBA-Beispiel
Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die Timer-Funktion verwendet, um die Anwendung anzuhalten. Im Beispiel wird auch DoEvents verwendet, um andere Prozesse während der Pause zu liefern.
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