Enable JavaScript in the browser to display LibreOfficeDev Help pages.

Timer Function

Возвращает значение, которое указывает количество секунд, прошедших после полуночи.

Значок примечания

Сначала необходимо объявить переменную, используемую для вызова функции Timer, и назначить ей тип Long. В противном случае будет возвращаться дата.


Синтаксис:


  Timer

Return value:

Дата

Пример:


  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
note

The Timer function measures time in seconds. To measure time in milliseconds use the Timer service available in the ScriptForge library.