Sub MsgBoxDateDiffA()
MsgBox DateDiffA("29.10.2019 12:00", "28.10.2019 11:30")
End Sub
Function DateDiffA(date1 As Date, date2 As Date) As Variant
Dim deltaMinuten As Integer
Dim AnzahlStunden As Integer
Dim AnzahlMinuten As Integer
deltaMinuten = DateDiff("n", date1, date2)
AnzahlStunden = deltaMinuten / 60 * (-1)
AnzahlMinuten = (deltaMinuten Mod 60) * (-1)
DateDiffA = AnzahlStunden & ":" & AnzahlMinuten
End Function