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.