Contenuto

# Funzione Timer

Restituisce un valore che specifica il numero di secondi trascorsi dalla mezzanotte.

È necessario prima dichiarare una variabile che chiami la funzione Timer e assegnarle il tipo di dati "Long ", diversamente viene restituito un valore in forma di data.

### Sintassi:

      Timer

### Tipo di ritorno:

Data

### Esempio:

      Sub ExampleTimer
          Dim lSec As Long,lMin As Long,lHour As Long
          lSec = Timer
          MsgBox lSec, 0, "Secondi trascorsi da mezzanotte"
          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, "L'ora è"
    End Sub

La funzione Timer misura il tempo in secondi. Per misurare il tempo in millisecondi usare il servizio Timer disponibile nella libreria ScriptForge.

Argomenti correlati

Servizio ScriptForge.Timer

Sostienici!