Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 873 fois - Téléchargée 37 fois
Function CalcDuree(TpsSec As Long) As String Dim DurHeur As Long Dim DurMin As Long Dim DurSec As Long 'Saisie du temps en secondes tps = InputBox("entrer un nombre de secondes") 'Détermine les heures DurHeur = Round(TpsSec / 3600) If (TpsSec Mod 3600) >= 1800 Then DurHeur = DurHeur - 1 End If 'Détermine les minutes DurMin = Round(TpsSec / 60) - DurHeur * 60 If (TpsSec Mod 60) >= 30 Then DurMin = DurMin - 1 End If 'Détermine les secondes DurSec = TpsSec - DurMin * 60 - DurHeur * 3600 'Ajoute un 0 devant les secondes et les minutes inférieures à 10 If (DurMin < 10 And DurSec < 10) Then CalcDuree = DurHeur & ":0" & DurMin & ":0" & DurSec ElseIf (DurMin >= 10 And DurSec < 10) Then CalcDuree = DurHeur & ":" & DurMin & ":0" & DurSec ElseIf (DurMin < 10 And DurSec >= 10) Then CalcDuree = DurHeur & ":0" & DurMin & ":" & DurSec Else CalcDuree = DurHeur & ":" & DurMin & ":" & DurSec End If 'Affichage du résultat MsgBox "Durée = " & CalcDuree End Function
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
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")
Format serait tout de même bien utile ici...
Personnellement, je préfère procéder à la mise en forme "00" de la manière suivante :
CalcDuree = DurHeur & ":" & Format(DurMin,"00)" & ":" & Format(DurSec,"00")
Ainsi, il n'y a pas besoin de s'amuser à vérifier s'il y a moins de 10 minutes ou 10 secondes.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.