|
Nabend,
ich stehe gerade so ziemlich auf dem Schlauch^^
Und zwar möchte ich gerne drei Zeiten unterscheiden..
Frühschicht (hh:mm - hh:mm)
Spätschicht (hh:mm - hh:mm)
Nachtschicht (hh:mm - hh:mm)
Dim WorkShiftName(3) As String
Dim WorkShiftTime(3, 3, 3) As Date
Sub FillArray()
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
End Sub
Das heißt im Endeffekt ich möchte in abhängingkeit von der aktuellen Zeit als Ergebniss den jeweiligen "WorkShiftName" - String bekommen..
Jemand eine Idee?
|