Fehler bei Datumsberechnung in Schleife-DbGridDrawDataCell

[erich.wanker]

Hallo Leute,

ich hab hier ein witziges Problem.

Delphi7, Firebird SQL Server
In einem DBGrid (defaultdrawing=flase) - in der Procedure OnDrawDataCell rechne ich mir aus,
ob ein Datensatz in einem bestimmten Zeitraum fällt - wenn ja, setzt ich die Farben anders.

-es wird aber kein passender Datensatz gefunden, obwohl einer existiert !

Ich suche:
Datensätze, die größer/gleich 13.03.2009 sind
Datensätze, die kleiner/gleich 13.03.2009 sind
Demodatensatz/Feld'CREATE_DATE'/Wert= 13.03.2009

Delphi-Quellcode:

 

// x1,x2,x3            sind Integer;
// temp_datums_dinger  sind TDateTime;
// DBGrid              ist ein TwwDBGrid;

procedure TForm.dbobenDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
...
..                 
temp_bis_date := bis_datepicker.DateTime; //TDateTimePicker
temp_von_date := von_datepicker.DateTime; //TDateTimePicker
temp_my_date  := data_form.STRUCTURE.FieldByName('CREATE_DATE').AsDateTime; // Query auf Table

x1:=CompareDateTime(temp_von_date,temp_my_date);
x2:=CompareDateTime(temp_bis_date,temp_my_date);
x3:=CompareDateTime(temp_bis_date,temp_von_date);

memo2.Lines.Append('');
memo2.Lines.Append(datetostr(temp_von_date)+' x1:'+inttostr(x1));
memo2.Lines.Append(datetostr(temp_bis_date)+' x2:'+inttostr(x2));
memo2.Lines.Append(datetostr(temp_my_date)+' x3:'+inttostr(x3));

if ((x1=-1) or (x1=0)) AND  ((x2=1) or (x2=0)) then
 begin
  showmessage('bin drin');
 end;

..
.

Hab ein Memo auf die Form geklatscht und mir die Daten ins Memo schreiben lassen..
Dort stehen die Datumswerte richtig - aber CompareDateTime "rechnet in dem Moment nicht richtig" ???


Text aus dem Memo2:

• 13.03.2009 x1:1
  13.03.2009 x2:1
  13.03.2009 x3:0
  
  
  13.03.2009 x1:1
  13.03.2009 x2:1
  13.03.2009 x3:0
  
  
  13.03.2009 x1:1
  13.03.2009 x2:1
  13.03.2009 x3:0

..ich versteh einfach nicht warum x1 und x2 den Wert "1" haben !

Hat jemand eine Idee ?

Vielen Dank

Erich

[mkinzler]

Besser

Delphi-Quellcode:

temp_bis_date := Trunc(bis_datepicker.Date); //TDateTimePicker
...

[erich.wanker]

das "Trunc" ist die Lösung ...

...vielen Dank!

[nahpets]

Hallo,

Zitat von erich.wanker:

das "Trunc" ist die Lösung ...

...vielen Dank!

bei DateTime bitte nie vergessen, dass in den Nachkommastellen die Uhrzeit steht und die wird bei Deinen ursprunglichen Vergleichen mit berücksichtigt. Ein DateTimeToStr macht sowas dann sichtbar.

[mkinzler]

Und Trunc schneidet den Nachkommaanteil ab, was dann in jedem Fall zu 00:00:00.00 Uhr führt

[nahpets]

Zitat von mkinzler:

Und Trunc schneidet den Nachkommaanteil ab, was dann in jedem Fall zu 00:00:00.00 Uhr führt

jaja, schon richtig, finde nur, man sollte wissen, warum man abschneidet

[mkinzler]

War ja auch eine Ergänzung zu deiner Aussage