Discussion :

[chantalina]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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