Timer

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

Aufbau

Timer

Beispiel

Im folgenden Beispiel wird mithilfe der Timer-Funktion ermittelt, wie lange es dauert, eine For...Next-Schleife N-mal durchlaufen:

Funktion TimeIt(N)

Dim StartTime, EndTime

StartTime = Timer

For I = 1 To N

Next

EndTime = Timer

TimeIt = EndTime - StartTime

End Function |