Zeit vergleichen

[bundy]

Hallo Delphianer

Ich habe folgendes Problem:

Delphi-Quellcode:

procedure TDienste_buchen_form.cxScheduler1SelectionChanged(
  Sender: TObject);
var start:Ttime;
    Nachtzeit:Double;
begin
dxDateEdit1.Date:=cxScheduler1.SelStart;
dxDateEdit2.Date:=cxScheduler1.SelFinish;
start:= cxScheduler1.SelStart;
Edit2.Text:=TimeToStr(start)  ;
if start < StrToTime(' 06:00:00') then MACHWAS;  //---------> das funktioniert nicht :gruebel:

Ich muss ausrechen Nachtstunden und Tagesstunden.
Die Nachtstunden gehen bis 06:00:00.

Warum lauft meinen Procedure nicht in die IF Schleife , wenn mein start:= 04:00:00

mfg
bundy

[Bernhard Geyer]

Ich denke einer der Variablen (start oder StrToTime(' 06:00:00')) liefert den Wert mit Datum (und nicht nur die Uhrzeit).

Du darfst nur den Nachkommateil betrachten (TTime ist auch nur ein Double-Wert).
Schneide den Ganzzahligen Anteil ab und vergleiche dann.

[Aenogym]

hi,

verusche es mal so:

if trunc(start) < strtotime('06:00:00') then .... sicherlich wird start ein falscher wert zugewiesen (ein tdatetime repräsentierender). als ttime gesehen, ist er wieder etwas ganz anderes

Aenogym

edit: ich sollte mich wohl nicht solange aufhalten mit dem ausprobieren...

[bundy]

HY danke das hab ich mir schon gedacht, das das Datum in Time mitdrinnen steckt und somit die werte nicht gleich sind, wenn man sie in einen Integer zerlegt.


DANKE