Содержимое

# Timer Function

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

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

### Синтаксис:

      Timer

### Return type:

Дата

### Пример:

      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.

См. также

ScriptForge.Timer service

Пожалуйста, поддержите нас!