Dim WorkShiftName(3) As String
Dim WorkShiftTime(3, 3, 3) As Date
Sub FillArray()
Dim i As Integer, sSchicht as String
WorkShiftName(0) = "Frühschicht"
WorkShiftName(1) = "Spätschicht"
WorkShiftName(2) = "Nachtschicht"
WorkShiftTime(0, 0, 0) = "06:14"
WorkShiftTime(0, 1, 0) = "13:45"
WorkShiftTime(0, 0, 1) = "09:00"
WorkShiftTime(1, 0, 0) = "13:40"
WorkShiftTime(1, 1, 0) = "21:25"
WorkShiftTime(1, 0, 1) = "18:00"
WorkShiftTime(2, 0, 0) = "21:20"
WorkShiftTime(2, 1, 0) = "06:00"
WorkShiftTime(2, 0, 1) = "03:00"
For i = 0 To 2
If i < 2 Then
If Time >= WorkShiftTime(i, 0, 0) And Time <= WorkShiftTime(i, 1, 0) Then
sSchicht = WorkShiftName(i): Exit For
End If
Else
If Time >= WorkShiftTime(i, 0, 0) Or Time <= WorkShiftTime(i, 1, 0) Then
sSchicht = WorkShiftName(i): Exit For
End If
End If
Next i
MsgBox sSchicht
End Sub