LibreOffice 25.2 abi
Tagastab väärtuse, mis näitab alates keskööst möödunud sekundite arvu.
Funktsiooni Timer kutsumiseks tuleb esmalt kirjeldada muutuja ja määrata sellele andmetüüp Long, sest muidu tagastatakse väärtus Date.
  Timer
Kuupäev
  Sub ExampleTimer
      Dim lSec As Long,lMin As Long,lHour As Long
      lSec = Timer
      MsgBox lSec, 0, "Seconds since midnight"
      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, "The time is"
End Sub
The Timer function measures time in seconds. To measure time in milliseconds use the Timer service available in the ScriptForge library.