SECONDES VERS HEURE,MIN, SEC

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 5 nov. 2003 à 14:06
2df Messages postés 1 Date d'inscription mardi 21 octobre 2003 Statut Membre Dernière intervention 14 novembre 2003 - 14 nov. 2003 à 13:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/17695-secondes-vers-heure-min-sec

2df Messages postés 1 Date d'inscription mardi 21 octobre 2003 Statut Membre Dernière intervention 14 novembre 2003
14 nov. 2003 à 13:27
ben thx
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
5 nov. 2003 à 14:06
Function GetTimeFromSeconds(NbSeconds As Long) As Date
Dim H As Long, M As Long, S As Long
H = NbSeconds 3600
M = NbSeconds Mod 3600
S = M Mod 60
M = M 60
GetTimeFromSeconds = CDate(H & ":" & M & ":" & S)
End Function
Rejoignez-nous