Vergleichen von TDate mit DateTimePicker

[ickehausen]

Hallo,

ich bin am verzweifel, weil ich den Wald vor lauter Bäumen nicht sehe.
Folgendes Problem:

Zwei DateTimePicker mit dem gleichen Datum (einer für Begin und einer für End), eine Variable vom Typ TDate, ebenfalls das gleiche Datum wie die DateTimePicker z. B. 12.03.2012.

Nun soll abgefragt werden, ob sich die Variable im Bereich zwischen Begin und End befindet. Ich mache dies über eine If-Abfrage:

Delphi-Quellcode:

if (DateTest <= DTPEnd.Date) and (DateTest >= DTPBegin.Date) then
      begin

Das lustige ist, obwohl alle drei Werte, also DateTest, DTPEnd.Date und DTPBegin.Date identisch sind, zumindest laut der Liste der überwachten Ausdrücke, gibt mir (DateTest <= DTPEnd.Date) ein TRUE und (DateTest >= DTPBegin.Date) ein FALSE zurück?!
Kann mir jemand sagen warum? Müsste (DateTest >= DTPBegin.Date) mir nicht auch ein TRUE zurückgeben?

Gruß
Frank

[mkinzler]

In der Eigenschaft .Date wird leider eine voller Timestamp zurückgegeben versuch es mal mit

Delphi-Quellcode:

Trunc (Picker.Date)

[DeddyH]

In TDateTimePicker.Date steht leider nicht nur das Datum, sondern auch eine Uhrzeit. Versuch es einmal mit

Delphi-Quellcode:

var
  Startdate, EndDate: TDateTime;
begin
  StartDate := trunc(DTPBegin.Date);
  EndDate := trunc(DTPEnd.Date) + frac(EncodeTime(23, 59, 59, 999));
  if (DateTest <= EndDate) and (DateTest >= StartDate) then
    //Dein Code
end;

Aus dem Kopf, daher ungetestet.

[edit] Markus war schneller, dafür ich ausführlicher :) [/edit]

[ickehausen]

Danke an Euch, das war es. Mich wunderte es nur, da in beiden DateTimePickern genau das Gleiche steht, das die ein Abfrage TRUE und die andere FALSE ist. Aber ich glaube jetzt verstanden zu haben, dass es an die Operationszeichen liegt!

Nochmnals Danke!!!:-D:-D:-D:thumb:

[DeddyH]

Das liegt nicht an Operationszeichen, sondern am Nachkommaanteil (= Uhrzeit) des jeweiligen Datums.