|
Hallo MemLeak,
schau mal, ob das so hinkommt:
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"
'Frühschicht
WorkShiftTime(0, 0, 0) = "06:14" 'Beginn
WorkShiftTime(0, 1, 0) = "13:45" 'Ende
WorkShiftTime(0, 0, 1) = "09:00" 'Pause
'Spätschicht
WorkShiftTime(1, 0, 0) = "13:40" 'Beginn
WorkShiftTime(1, 1, 0) = "21:25" 'Ende
WorkShiftTime(1, 0, 1) = "18:00" 'Pause
'Nachtschicht
WorkShiftTime(2, 0, 0) = "21:20" 'Beginn
WorkShiftTime(2, 1, 0) = "06:00" 'Ende
WorkShiftTime(2, 0, 1) = "03:00" 'Pause
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
viele Grüße
Karl-Heinz
|