Private Sub Arbeitsminuten(ByVal von As Date, ByVal bis As Date, _
ByRef normal As Integer, ByRef black As Integer, Byref red As Integer)
 
Dim von_tm%, bis_tm%, aktuell_tm%
von_tm = Hour(von) * 60 + Minute(von)
bis_tm = Hour(bis) * 60 + Minute(bis)
 
'Zeitbereiche in Tagesminuten
Dim normalstart%, blackstart%, redstart%
normalstart = 361: blackstart = 871: redstart = 1321
 
aktuell_tm = von_tm
While aktuell_tm <> bis_tm
    aktuell_tm = aktuell_tm + 1
    If aktuell_tm = 1440 Then aktuell_tm = 0 'Tageswechsel
    If aktuell_tm >= normalstart And aktuell_tm < blackstart Then
       normal = normal + 1
    ElseIf aktuell_tm >= blackstart And aktuell_tm < redstart Then
       black = black + 1
    Else
       red = red + 1
    End If
Wend
 
End Sub