Timer

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

Struttura

Timer

Esempio

L'esempio seguente utilizza la funzione Timer per calcolare il tempo necessario per eseguire un ciclo For...Next N volte:

Funzione TimeIt(N)

Dim StartTime, EndTime

StartTime = Timer

For I = 1 To N

Next

EndTime = Timer

TimeIt = EndTime - StartTime

End Function |