Abilitare JavaScript nel browser per visualizzare le pagine della Guida di LibreOfficeDev.

Funzione Timer

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

Icona di nota

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 = 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
note

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