Module
Contenu
Index 🔎︎

# 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