IBM Lotus Symphony


Fonction Timer [Exécution]

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques