Contido

# Timer Function

Devolve un valor que especifica o número de segundos que pasaron desde a media noite.

Primeiro, declare unha variábel para chamar á función Timer e atribúalle o tipo de datos "Long", en caso contrario devólvese un valor de data.

### Sintaxe:

      Timer

### Return type:

Data

### Exemplo:

      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.

Temas relacionados

ScriptForge.Timer service

Precisamos da súa axuda!