Fonction Timer

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,"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