Contenuto

# Funzione Timer

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

Dovete 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

### Valore restituito:

Data

### Esempio:

      Sub ExampleTimer
          Dim lSec As Long,lMin As Long,lHour As Long
          lSec = Timer
          MsgBox lSec, 0, "Secondi trascorsi da mezzanotte"
          lMin = lSec / 60
          lSec = lSec Mod 60
          lHour = lMin / 60
          lMin = lMin Mod 60
        MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2), 0, "Sono le ore"
    End Sub

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

Argomenti correlati

Servizio ScriptForge.Timer