Timer Function

Renvoie une valeur indiquant le nombre de secondes écoulées depuis minuit.

Icône Remarque

Vous devez dans un premier temps déclarer une variable pour appeler la fonction Timer et lui affecter le type de données "Long" ; sans cela, une valeur de date est renvoyée.


Syntaxe :


  Timer

Valeur de retour :

Date

Exemple :


  Sub ExampleTimer
      Dim lSec As Long,lMin As Long,lHour As Long
      lSec = Timer
      MsgBox lSec, 0, "Seconds since midnight"
      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, "The time is"
End Sub
note

The Timer function measures time in seconds. To measure time in milliseconds use the Timer service available in the ScriptForge library.