CONVERSION D'UNE DURÉE EN SECONDES AU FORMAT HH:MM:SS (SANS FORMAT())

Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
-
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/28086-conversion-d-une-duree-en-secondes-au-format-hh-mm-ss-sans-format

Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
3
voila ce que j'ai deja utiliser si cela peux servir a d'autre

text1=resultat de la conversion


Seconde = ' a entre de la maniere que vous voulez
DefHeure = Seconde
Cal = DefHeure / 60
Minute = Fix(Cal)
Seconde = Fix((DefHeure - Minute * 60))
If Minute > 59 Then
Heure = Fix(Minute / 60)
Minute = Fix((Minute - Heure * 60))
End If
If DefHeure >= 86400 Then
Jour = Fix(DefHeure / 86400)
Text1 = Format(Jour, "00") & " J " & Format(Heure - (Jour * 24), "00") & " H " & Format(Minute, "00") & " Min " & Format(Seconde, "00") & " s"
Else
If DefHeure >= 3600 Then
Text1 = Format(Heure, "00") & " H " & Format(Minute, "00") & " Min " & Format(Seconde, "00") & " s"
Else
If DefHeure >= 60 Then
Text7 = Format(Minute, "00") & " Min " & Format(Seconde, "00") & " s"
Else
Text7 = Format(Seconde, "00") & " s"
End If
End If
End If
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
JoePatent> ça va de soit ;)
Messages postés
171
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
20 juillet 2008

Une autre methode est de prendre le tout a l'envers et d'eliminer tous les IF

Dim tpssec As Long
Dim secondes As Long
Dim minutes As Long
Dim heures As Long

tpssec = 90 ' On met un nombre x de secondes - fin de test
secondes = tpssec Mod 60 ' On determine le nombre de secondes

tpssec = tpssec - secondes ' on eneleve le nombre de secondes de la duree
tpssec = tpssec / 60 ' On convertit le tout en minute

minutes = tpssec Mod 60 ' on determine le nombre de minutes
tpssec = tpssec - minutes ' On enleve le nombre de minutes de la duree

tpssec = tpssec / 60 ' On convertit le tout en heure
heures = tpssec Mod 60 ' On determine le nombre d'heure

MsgBox heures & ":" & Format(minutes, "00") & ":" & Format(secondes, "00")
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
pour le coup, je respecte son cahier des charges ;-) le contenu, je laisse l'auteur en décider ....

Format serait tout de même bien utile ici...
Afficher les 7 commentaires