Salut,
Tu peux utiliser cette fonction :
1 2 3 4 5 6 7 8 9 10
| Public Function EvalHeure(Valheure As Double) As String
Dim h As Integer
Dim m As Integer
h = Int(Valheure)
m = (Valheure - h) * 60
EvalHeure = Format(h, "00") & ":" & Format(m, "00")
End Function |
et après, si ton champ de type Date/heure s'appelle Durée, tu utilises :
EvalHeure(Somme(CDbl([Durée])*24))
Autre possibilité sans fonction VBA :
Format(Somme(Heure([Durée]))+Somme(Minute([Durée]))\60;"00") & ":" & Format(Somme(Minute([Durée])) Mod 60;"00")
A+
Partager