Contenu

# Fonction Timer

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

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, "Secondes depuis minuit"
          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, "Il est"
    End Sub

La fonction Timer mesure le temps en secondes. Pour mesurer le temps en millisecondes, utilisez le service Timer disponible dans la bibliothèque ScriptForge.

Rubriques connexes

Service ScriptForge.Timer