Devolve um valor Simples que representa o número de segundos decorridos desde a meia-noite.
Sintaxe
Temporizador
Observações
No Microsoft Windows, a função Timer retorna partes fracionárias de um segundo. No Macintosh, a resolução do temporizador é de um segundo.
Exemplo de consulta
| Expressão | Resultados |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Devolve o número de segundos decorridos desde a meia-noite com base na hora do sistema e apresenta na coluna SecondsPast. |
Exemplo do VBA
Nota
Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo usa a função Timer para pausar o aplicativo. O exemplo também usa DoEvents para render a outros processos durante a pausa.
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