Função Timer

Retorna o número de segundos decorridos desde as 12:00 (meia-noite).

Sintaxe

Timer

Comentários

O exemplo a seguir usa a função Timer para determinar o tempo necessário para iterar N vezes um loop For...Next:

Exemplo:

Function TimeIt(N)
   Dim StartTime, EndTime
   StartTime = Timer
   For I = 1 To N
   Next
   EndTime = Timer
   TimeIt = EndTime - StartTime
End Function

Dim N, Duration
N = 1000000   ' Number of iterations.
Duration = TimeIt(N)