Returnează o valoare Simplă precizie reprezentând numărul de secunde care au trecut de la miezul nopții.
Sintaxă
Timer
Observații
În Microsoft Windows, funcția Timer returnează porțiuni fracționare de secundă. Pe Macintosh, rezoluția cronometrului este de o secundă.
Exemplu de interogare
|
Expresie |
Rezultatele |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Returnează numărul de secunde scurse de la miezul nopții pe baza orei de sistem și se afișează în coloana SecondsPast. |
Exemplu VBA
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția Cronometru pentru a pune aplicația în pauză. Exemplul utilizează, de asemenea, DoEvents pentru a genera în alte procese în timpul pauzei.
Dim PauseTime, Start, Finish, TotalTimeIf (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 EndEnd If
