Bonjour tout le monde,
J'ai un souci avec un calcul de durée.
A l'aide d'une distance et d'une vitesse moyenne, j'obtiens la durée du trajet en seconde.
Lorsque je veux le passer en format HH:MM:SS, il apparait des soucis du genre 4:-18:-30
Auriez vous une idée du problème? ou une amélioration que je pourrais ajouter?
Merci
Public Sub Estimationtemps()
'Calcul du temps moyen du trajet en fonction du mode de déplacement choisit
Dim Distance As Double
Dim Vitessemoyenne As Single
Dim Tempsec As Double
Dim Heure As Long
Dim Minute As Long
Dim Seconde As Long
Tempsec = Round((Distance / Vitessemoyenne) * 3600, 0)
Heure = Tempsec / 3600
Minute = (Tempsec - Heure * 3600) / 60
Seconde = Tempsec - Heure * 3600 - Minute * 60
Range("D5") = Heure & ":" & Minute & ":" & Seconde
End Sub
J'ai un souci avec un calcul de durée.
A l'aide d'une distance et d'une vitesse moyenne, j'obtiens la durée du trajet en seconde.
Lorsque je veux le passer en format HH:MM:SS, il apparait des soucis du genre 4:-18:-30
Auriez vous une idée du problème? ou une amélioration que je pourrais ajouter?
Merci
Public Sub Estimationtemps()
'Calcul du temps moyen du trajet en fonction du mode de déplacement choisit
Dim Distance As Double
Dim Vitessemoyenne As Single
Dim Tempsec As Double
Dim Heure As Long
Dim Minute As Long
Dim Seconde As Long
Tempsec = Round((Distance / Vitessemoyenne) * 3600, 0)
Heure = Tempsec / 3600
Minute = (Tempsec - Heure * 3600) / 60
Seconde = Tempsec - Heure * 3600 - Minute * 60
Range("D5") = Heure & ":" & Minute & ":" & Seconde
End Sub