Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tango,
19. Okt 2014
Nee, EncodeTime meine ich nicht DecodeTime wenn ich h(stunde)< wie 23 Stunden schreibe (soll ja von 0-23 sein) bekomme ich nicht das Resultat was ich haben wollte.
Ich habe es auch falsch formuliert, wenn die Zeit zwischen 22:00 bis 6:00 ist ist es Nachtschicht.
Angenommen Heute haben wir 20.10.2014 ,ab 0:00Uhr wird es 21.10.2014 es soll aber erst ab 6:00 21.10.2014 werden weil von 0:00-6:00...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tango,
19. Okt 2014
Habe mal etwas experimentiert, aber eins verstehe ich nicht (obwohl es klappt) im Doku steht
EncodeTime codiert die angegebenen Werte für Stunde, Minute, Sekunde und Millisekunde in einen Wert des Typs TDateTime.
Für Hour sind Werte von 0 bis 23 zulässig.
Die gültigen Werte für Min und Sec liegen zwischen 0 und 59.
Die gültigen Werte für MSec liegen zwischen 0 und 999.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tango,
18. Okt 2014
Danke an euch allen, ja mit Starter hat es wie du sagtest mit Befehl auswählen und f1 drücken geklappt :) habe heute vieles gelernt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tango,
18. Okt 2014
Danke, dank deiner Link habe ich gesehen das die Millisekunde gefehlt hat, eingetragen schon lief alles wie es soll.
Nur das mit dem Strg+click funktioniert nicht, sobald ich auf dem Code draufgehe und Strg+Click passiert bei mir nichts. Es soll so wie ich verstanden habe mir die Doku öffnen für das passende Befehl.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tango,
18. Okt 2014
So habe es mal ausprobiert, bekomme Fehlermeldung, nicht des so Trotzt so wie ich es verstanden habe überprüft der Timer ob es exakt 6:00 oder 14:00 ist
es sollte aber zwischen 6:00-14:00, 14:01-22:00, 22:01-6:00 unterscheiden.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tango,
17. Okt 2014
Danke an euch beiden.sobald ich von der Arbeit komme werde ich es genauer studieren und testen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tango,
17. Okt 2014
Um das ganze zu verstehen habe ich mal eine Beispiel erstellt, leider bekomme ich immer falsches Wert :(
procedure TForm1.Timer1Timer(Sender: TObject);
Var Time,LastTime: TDateTime;
begin
If (Frac(Time) <= StrToTime('06:00:00')) and (Frac(Time) > StrToTime('14:00:00'))
Then
LastTime := now;
edit1.Text:= 'Frühschicht';
If (Frac(Time) <= StrToTime('14:00:01')) and...