Conversion secondes --> Minutes, heures.

z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 - 10 avril 2004 à 11:02
z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 - 10 avril 2004 à 16:03
Salut a tous !

Je pose cette question ici car je ne peux pas chercher sur vbfrance, a chaque fois j'ai une erreur...

Donc meme si ca a déja été poster, je repost...

J'ai un nombre (22200), il correspond a des secondes.

Je voudrais savoir comment faire pour le convertir en Heures, minutes et secondes restantes.

Si qqun pouvait m'aider, ca serait bien cool !

merci !

2 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
10 avril 2004 à 15:00
Bonjour

Private Function Conversion(Durée As Long) As String
Dim Temps As Long, Heures As Integer, Minutes As Integer, Secondes As Integer
Temps = Durée ' Temps en secondes
Secondes = Temps Mod 60
Temps = (Temps - Secondes) \ 60 ' Temps en minutes
Minutes = Temps Mod 60
Heures = (Temps - Minutes) \ 60Conversion Durée & " s " & Heures & " h " & Minutes & " min " & Secondes & " s"
End Function


Appel de la fonction :

MsgBox Conversion(22200)
0
z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 2
10 avril 2004 à 16:03
Excellentiscime !

Merci beaucoup pour ton aide !
0