Funzione Timer

Restituisce il numero di secondi trascorsi dalle 12:00 (mezzanotte).

Sintassi

Timer

Note

Nell'esempio seguente viene utilizzata la funzione Timer per determinare il tempo necessario per ripetere N volte un loop For...Next.

Esempio

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)