Función Timer

Devuelve el número de segundos que han transcurrido desde las 12:00 A.M. (medianoche).

Sintaxis

Timer

Observaciones

En el siguiente ejemplo se utiliza la función Timer para determinar el tiempo que se tarda en iterar un bucle For...Next N veces:

Ejemplo:

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)