Dim t1 As Date, t2 As Date, durée As Long, Réponse As String t1 = CDate("17/07/2004 15:25:00") t2 = CDate("19/07/2004 18:32:00") durée = DateDiff("n", t1, t2) If durée > 59 Then Réponse = durée \ 60 & " heures " & durée Mod 60 & " minutes" Else Réponse = durée & " minutes" End If MsgBox Réponse
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question