Action sur les variables - Convertir des secondes en heure minute secondes
Convertir des Secondes en Heures minutes secondes
Bonjour,
Aujourd'hui une astuce bien pratique pour convertir automatiquement des secondes en Heures/minutes/secondes
Exemple :
Je veux convertir 5000 secondes en heures/minutes/secondes.
Voici le code :
PUBLIC SUB Main()
DIM myseconds AS INTEGER = 5000
PRINT Format$(Date(0, 0, 0, 0, 0, 0, myseconds * 1000), "hh nmin ssec")
END
Petite explication :
La date ci dessus est écrite sous ce format :
Date(year,month,day,hour,minute,second, millisecond)
C'est pour cela que nous avons multiplié par 1000
Si nous voulions convertir des minutes il aurait fallut écrire : PRINT Format$(Date(0, 0, 0, 0, 0, 0, Myminutes * 600000), "hh nmin ssec")
Merci pour votre attention.
Date de création : 02/11/2020 @ 06:55
Dernière modification : 02/11/2020 @ 06:55
Catégorie : Action sur les variables Page lue 2206 fois