Differenz zweier Uhrzeiten

Function TimeDif(ByVal Von As Date, ByVal Bis As Date) As Date
Dim RestStart As Date, RestEnde As Date
Dim minTime As Date, maxTime As Date
If Von >= Bis Then Exit Function
minTime = TimeSerial(6, 0, 0)
maxTime = TimeSerial(22, 0, 0)
If Weekday(Von, vbMonday)  1, 1, RestEnde), minTime, maxTime)
TimeDif = TimeDif + RestTime(IIf(Bis - Von > 1, 0, RestEnde), IIf(Bis - Von > 1, RestEnde,  _
RestStart), minTime, maxTime)
Von = Int(Von) + 1
Bis = Int(Bis) - 1
For Von = Von To Bis
If Weekday(Von, vbMonday) 

Function RestTime(vonTime As Date, bisTime As Date, minTime As Date, maxTime As Date) As Date
If vonTime  maxTime Then bisTime = maxTime
RestTime = bisTime - vonTime
If RestTime