1 2 3 4
|
If IsDate(Me.DateHeureFin) And IsDate(Me.DateHeureDebut) Then
Me!DureePanne = Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440) & " jours " & Fix((DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) - (Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440)) * 1440) / 60) & ":" & (DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) - (Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440)) * 1440) - (Fix((DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) - (Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440)) * 1440) / 60) * 60)
End If |
Partager