Thema Datum  Von Nutzer Rating
Antwort
Rot Zeiten vergleichen
 04.10.2020 23:54:58 MemLeak
Solved
05.10.2020 00:32:38 volti
Solved
05.10.2020 00:43:48 MemLeak
Solved

Ansicht des Beitrags:
Von:
MemLeak		 Datum:
04.10.2020 23:54:58		 Views:
990		 Rating:
     
Antwort:
 Nein
Thema:
Zeiten vergleichen

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)

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeiten vergleichen
 04.10.2020 23:54:58 MemLeak
Solved
05.10.2020 00:32:38 volti
Solved
05.10.2020 00:43:48 MemLeak
Solved