Funktion Timer

Liefert einen Wert zurück, der die vergangene Zeit seit Mitternacht in Sekunden festlegt.

Um die Funktion "Timer" aufzurufen, muss zuerst eine Variable mit dem Typ "Long" deklariert werden. Ansonsten wird ein Wert des Typs "Date" zurückgegeben.

Syntax:


  Timer

Rückgabetyp:

Datum

Beispiel:


  Sub ExampleTimer
      Dim lSec As Long,lMin As Long,lHour As Long
      lSec = Timer
      MsgBox lSec, 0, "Zeit in Sekunden"
      lMin = Int(lSec / 60)
      lSec = lSec Mod 60
      lHour = Int(lMin / 60)
      lMin = lMin Mod 60
    MsgBox Format(lHour,"00") & ":"& Format(lMin,"00") & ":" & Format(lSec,"00"),  0, "Die Uhrzeit ist"
End Sub

Die Funktion Timer misst die Zeit in Sekunden. Um die Zeit in Millisekunden zu messen, den Dienst Timer in der Bibliothek ScriptForge verwenden.

Dienst ScriptForge.Timer