Restituisce un valore Single che rappresenta il numero di secondi trascorsi dalla mezzanotte.
Sintassi
Timer
Osservazioni
In Microsoft Windows la funzione Timer restituisce parti frazionarie di un secondo. In Macintosh la risoluzione del timer è di un secondo.
Esempio di query
|
Espressione |
Risultati |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Restituisce il numero di secondi trascorsi dalla mezzanotte in base all'ora di sistema e viene visualizzato nella colonna SecondsPast. |
Esempio di VBA
Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa la funzione Timer per sospendere l'applicazione. L'esempio usa anche DoEvents per cedere ad altri processi durante la pausa.
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
