Compartilhar via


Função Timer

Retorna um Single que representa o número de segundos decorridos desde meia-noite.

Sintaxe

Timer

Comentários

No Windows, a função Timer retorna porções fracionadas de um segundo. No Macintosh, a resolução do temporizador é de um segundo.

Exemplo

Este exemplo usa a função Timer para pausar o aplicativo. O exemplo também usa DoEvents para gerar 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.