Devolve um valor Simples que representa o número de segundos decorridos desde a meia-noite.

Sintaxe

Cronómetro

Observações

No Microsoft Windows a função Cronómetro devolve as partes fraccionárias de um segundo. Na Macintosh, a resolução do cronómetro é um segundo.

Exemplo

 Nota   Os exemplos que se seguem demonstram a utilização desta função num módulo do Visual Basic for Applications (VBA). Para mais informações sobre como trabalhar com VBA, seleccione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de procura.

Este exemplo utiliza a função Cronómetro para interromper a aplicação. O exemplo também utiliza DoEvents para produzir outros processos durante a interrupção.

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