Dim Durchschnitt            As Long
    Dim iStd                    As Long
    Dim iMin                    As Long
 
    Durchschnitt = TotalMinuten / nTage
    If Durchschnitt > 60 Then
       iStd = (Durchschnitt / 60)
       iMin = Durchschnitt - (iStd * 60)
    Else
       iStd = 0
       iMin = Durchschnitt
    End If