Timer-Funktion

Gibt die Anzahl an Sekunden zurück, die seit 00:00 Uhr (Mitternacht) vergangen sind.

Syntax

Timer

Anmerkungen

Im folgenden Beispiel wird die Timer-Funktion verwendet, um die Zeit zu bestimmen, die benötigt wird:, um eine "For...Next loop"-Anweisung N Mal zu iterieren:

Beispiel:

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)