Date et heure HourAddition24Plus

[patricktoulon]

allez une autre
additionner les heure (plus de 24 h)
2 modes (temps/cumul)

Function HourAddition24Plus(Heure1, Heure2, Optional cumul As Boolean)
    Dim TH: TH = Heure1 + Heure2
    If cumul Then
        'formatage avec la fonction ""Text"" de application
        HourAddition24Plus = Application.Text(TH, "[hh]:mm:ss")   'les crochets associés a app.text  indiquent que les heures se cumulent au dela de 24
    Else
        'sans formatage on obtient un  temps
        HourAddition24Plus = Format(TH, "hh:mm:ss")
    End If
End Function


Sub test()
 Heure1 = CDate("23:30:00")
 Heure2 = CDate("01:30:00")
  
MsgBox HourAddition24Plus(Heure1, Heure2, True)
MsgBox HourAddition24Plus(Heure1, Heure2)
End Sub