2df
Messages postés1Date d'inscriptionmardi 21 octobre 2003StatutMembreDernière intervention14 novembre 2003 14 nov. 2003 à 13:27
ben thx
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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
14 nov. 2003 à 13:27
5 nov. 2003 à 14:06
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