Zwraca wartość typu Pojedyncza precyzja odpowiadającą liczbie sekund, jaka upłynęła od północy.
Składnia
Timer
Uwagi
W systemie Microsoft Windows funkcja Czasomierz zwraca ułamki sekundy. Na komputerze Macintosh rozdzielczość czasomierza wynosi jedną sekundę.
Przykład kwerendy
Expression |
Wyniki |
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Zwraca liczbę sekund, które upłynęły od północy, na podstawie czasu systemowego i wyświetlaną w kolumnie SecondsPast. |
Przykład języka VBA
Uwaga: Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie do wstrzymania aplikacji używana jest funkcja Czasomierz . W tym przykładzie użyto również funkcji DoEvents w celu uzyskania wydajności dla innych procesów podczas wstrzymania.
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