Datum wechselt nach Schichtbegin um 6:00 Uhr

Andreas85 · 31. Mai 2016, 11:22

Hallo,

ich habe vollgendes Problem:

Es soll ein 3-Schichtsystem sein. die schicht läuft 8 stunden. sie beginnt montag morgen um 06:00 uhr bis 14:00, dann von 14:00 bis 22:00 und dann von 22:00 bis 06:00. Diese 3 schichten sollen alle das gleiche datum benutzen, das datum soll sich erst wieder am nächsten morgen um 06:00 ändern. hoffentlich habe ich mich einigermaßen verständlich ausgedrückt. Leider bin ich absoluter Anfänger.

Wie kann/soll ich das in VB programmieren? Muss mich hier auf die Systemuhr beziehen...

das ganze sollte wenn möglich in VB-Script sein. Leider kann man das oben nicht auswählen.

*Topic verschoben*

RodFromGermany · 31. Mai 2016, 11:37

@Andreas85 Löse das Problem anders herum.
Nimm das Systemdatum / Uhrzeit und gib der Zeit einen Offset, dass die 1. Schicht 0 Uhr beginnt und die letzte 24 Uhr aufhört.
Feddich.

Andreas85 · 31. Mai 2016, 12:10

Hallo Rod,

danke für die Antwort.
Nur leider kann ich mit dem Vorschlag nichts anfangen.
Ich bin absoluter Anfänger und hoffte auf ein Codebeispiel um mir das besser klar machen zu können.

RodFromGermany · 31. Mai 2016, 12:14

Andreas85 schrieb:

absoluter Anfänger

Als solcher hast Du solch eine Aufgabe bekommen?
Nur bekommst Du hier keinen Code geschenkt. Falls Du da was entwickeln lassen möchtest, geh zum Marktplatz-Unterforum.
Ansonsten lerne und stell präzise Fragen. Dann stemmen wir das Ding.
Also:
Wie lautet die konkrete Aufgabenstellung?

Thias · 31. Mai 2016, 12:17

Naja ein Link zum Lernen bzgl. DateTimeOffset sollte schon drin sein:

msdn.microsoft.com/de-de/libra…cs-lang=vb#code-snippet-1

ErfinderDesRades · 31. Mai 2016, 12:23

Andreas85 schrieb:

das ganze sollte wenn möglich in VB-Script sein.

wirklich vb-script?
Das wäre glaub sehr ungewöhnlich - ist vb-script nicht eine veraltete Web-Technologie, ähnlich Java-script?

Andreas85 · 31. Mai 2016, 12:26

Ohje... Leute ich will hier nicht rum schnorren oder so.

Programmieren ist einfach nicht mein ding.
Ich arbeite an einem Etikett in einer dafür geschaffenen Software.
hin und wieder müssen die Variablen mit ein - zwei Zeilen VBS bestückt werden.

diese Aufgabe aber stresst mich enorm. Da ich nicht weiß wie ich da überhaupt ran gehen soll.

Ziel ist:
Auf dem Etikett soll die richtige Schichtnummer (0001 oder 0002 oder 0003) angezeigt werden. Je nach dem wie spät es eben ist.
das habe ich ja soweit schon.
jetzt raff ich aber nicht wie ich das Datum mit ausgeben soll DAS sich erst um 06:00 Uhr ändert, sprich um 1 Tag hochzählt.

phuu ich hätte leiber Metzger lernen sollen

VB1963 · 31. Mai 2016, 12:27

@Andreas85
Ganz einfach gesehen, ist die Zeit zwischen 00:00 und 06:00 immer am Vortag zuzuordnen...

ErfinderDesRades · 31. Mai 2016, 12:47

Andreas85 schrieb:

Leute ich will hier nicht rum schnorren oder so.

naja, was gut wäre, wenn du vlt. die entscheidende Methode hier postest.
(dann sieht man evtl. auch, obs wirklich vbs ist - ich zweifel ja noch immer).

Andreas85 · 31. Mai 2016, 12:53

dim shift
shift = 3

If Time => 0600 Then
shift = 1
end if

if Time => 1400 Then
shift = 2
end if

if Time => 2200 then
shift = 3
end if

Result = shift

ErfinderDesRades · 31. Mai 2016, 12:57

jo, von dieser Sprache habich tatsächlich keinen Schimmer.
Ist das eine Methode? Welchen Namen hat die, wo fängt die an, wo hört sie auf? Gibts in VBS überhaupt Methoden?

Andreas85 · 31. Mai 2016, 13:31

hahaha das frag mich bitte nicht...

petaod · 31. Mai 2016, 14:43

Wenn deine Uhrzeit tatsächlich als fix vierstelliger String existiert, ist dein Ansatz im Prinzip sogar fast funktionsfähig.

Visual Basic-Quellcode

dim shift
shift = 3
If Time >= "0600" Then shift = 1
If Time >= "1400" Then shift = 2
If Time >= "2200" Then shift = 3

oder (etwas strukturierter und als Funktion)

Visual Basic-Quellcode

Function Shift (Timestamp)
Dim h
h = CInt(Left(Timestamp,2))
If h >= 6 And h < 14 Then
Shift = 1
ElseIf h >= 14 And h < 22 Then
Shift = 2
ElseIf h >= 22 Or h < 6 Then
Shift= 3
End If
End Function

Andreas85 · 31. Mai 2016, 15:25

vielen Dank petaod.

ich hatte es vorhin auch schon so versucht wie dein erster Vorschlag aber es funktionierte nicht.
und jetzt wo ich deinen code copiert habe funktioniert es.

ich versteh nicht warum. störten die end if's?

VB1963 · 31. Mai 2016, 16:01

Andreas85 schrieb:

Diese 3 schichten sollen alle das gleiche datum benutzen, das datum soll sich erst wieder am nächsten morgen um 06:00 ändern.

Verstehe ich das jetzt falsch - deine Frage war doch so gestellt, wie du das Datum der 3. Schicht richtig zuordnest?

Parmaster · 31. Mai 2016, 16:02

Wenn es in deinem Code als Beispiel 15 Uhr wäre, wäre es trotzdem Shift 1.

Und 0-6 Uhr wurde nicht berücksichtigt.

Kurz gesagt, dir fehlte einfach nur der Zeitraum.

petaod · 31. Mai 2016, 17:04

Andreas85 schrieb:

störten die end if's?

Nein. Ich habe nur die kürzere Schreibweise verwendet.
Falsch bei dir war die => Konstruktion.

Parmaster schrieb:

Und 0-6 Uhr wurde nicht berücksichtigt.

Stimmt nicht.
shift wurde initial auf 3 gesetzt, damit ist alles nicht behandelte Schicht 3.

VB1963 schrieb:

deine Frage war doch so gestellt, wie du das Datum der 3. Schicht richtig zuordnest?

Stimmt, fällt mir jetzt auch auf.
Der jetzige Code ordnet die Uhrzeit den Schichten zu.

@Andreas85: Was nu?

Parmaster · 31. Mai 2016, 17:14

petaod schrieb:

shift wurde initial auf 3 gesetzt, damit ist alles nicht behandelte Schicht 3.

Tatsächlich, hab ich übersehen.

Andreas85 · 1. Juni 2016, 13:11

nun??? läuft dat ding...
aber eine Frage wäre da noch.

Dim dtActualTime

dtActualTime = now

'msgbox hour(dtActualTime)

if hour(dtActualTime) < 6 then
Result = DateAdd("d", -1, Date)
else
Result = Date
end if

Hiermit lasse ich mir das Datum ausgeben und es ändert sich erst ab/um 6:00 Uhr.
allerdings wird es wie folgt ausgegeben: 31.05.2016
ich möchte es aber so: 31/05/16
ich google jetzt erst mal danach. vielleicht hat ja jemand von euch eine idee...

Vielen Dank noch mal an alle die sich hier so großartig an engagiert haben mir zu helfen.
:thumbsup:

petaod · 1. Juni 2016, 15:46

Visual Basic-Quellcode

MsgBox Format(Date,"dd\/mm\/yy")

Datum wechselt nach Schichtbegin um 6:00 Uhr

Datum wechselt nach Schichtbegin um 6:00 Uhr

Andreas85 schrieb:

Andreas85 schrieb:

Andreas85 schrieb:

Visual Basic-Quellcode

Visual Basic-Quellcode

Andreas85 schrieb:

Andreas85 schrieb:

Parmaster schrieb:

VB1963 schrieb:

petaod schrieb:

Visual Basic-Quellcode

Ähnliche Themen

7 Benutzer haben hier geschrieben