fonction vba excel problème avec hh:mm:ss

Je m'essaie aux fonctions et en voici une que j'ai trouvé mais elle ne fonctionne pas alors qu'elle est simple de premier abord

Code:

---

1 2 3

Function TempsTrajet(Distance As Integer, Vitesse As Integer) As Date TempsTrajet = Format(Distance / Vitesse / 24, "hh:mm:ss") End Function

---

lorsque dans le classeur , j'execute la fonction, mes heures ne sont pas formatées et reste en format décimal... ex : 0.536544

par déduction, si je laisse seulement hh, ça fonctionne, ça bloque au niveau de mm, y aurait il une autre maniére de nommer les minutes..

merci pour votre aide

Bonjour,
Temps trajet n'est pas une date (sous forme hh:mm:ss)
un temps est un temps
une date est une date
si le temps du trajet est de 8h 30 min 25s
le bonhome a parcouru cette distance en ce temps
par contre "la date" 8h 30 min 25s signifie que je suis en retard au boulot de 25s;)
ci-joint une fonction (bâclée) qui affiche le temps du trajet (as string)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Function TempsTrajet(ByVal Distance As Double, ByVal Vitesse As Double) As String Dim t As Double, mt As Double Dim h As Integer, m As Integer, s As Integer If Vitesse <> 0 Then t = Distance / Vitesse h = Int(t) mt = 60 * (t - h) m = Int(mt) s = Int(60 * (mt - m)) TempsTrajet = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") End If End Function

---