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 Cronometru 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 care au trecut de la miezul nopții, pe baza orei sistemului ș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 Timer pentru a pune în pauză aplicația. Exemplul utilizează, de asemenea, DoEvents pentru a ceda altor procese în timpul pauzei.
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