Datumsvergleich ab Delphi 7 und 8 falsch ??

[negaH]

Hi Leute,

kann es sein das in den Datumroutinen ab Delphi 7 ein Fehler ist !!
Ich vergleiche zB. mit

Delphi-Quellcode:

  
  if StrToDate(DateToStr(Now)) = EncodeDate(2004, 4, 1) then ;

und dieser Vergleich ergibt bei mir immer FALSE. Bei euch auch ??

Gruß hagen

[neolithos]

Hast du schon mal die Double-Werte, die dahinterliegen verglichen?

Denn soviel ich weiß geht der vergleich 0.8=0.8 auch nicht immer gut.

[negaH]

Ja habe ich, selbst mit

Delphi-Quellcode:

 if Trunc(StrToDate(DateToStr(Now))) = Trunc(EncodeDate(2004, 4, 1)) then ;

kommt heute immer FALSE raus !

Gruß Hagen

[neolithos]

Bei mir funktioniert das...

Delphi-Quellcode:

var dt1,
    dt2 : TDateTime;
begin
  dt1 := StrToDate(DateToStr(Now));
  dt2 := EncodeDate(2004, 4, 1);
  if dt1 = dt2 then
     ShowMessage('test');
end;

[negaH]

Verstehe ich nicht. Welche Delphi Version haste denn getestet ? Welches SP haste drauf ??

Gruß Hagen

[CenBells]

hallo,

ich weiß ja nicht so genau, was du erwartest. Du führst ja keinen code aus.

das folgende klappt bei mir
   if StrToDate(DateToStr(Now)) = EncodeDate(2004, 4, 1) then showmessage('HALLOO'); Gruß
Ken

[negaH]

Hi,

ich habe mal deinen Code unter Delphi 7 und 8 gegengecheckt,

  if StrToDate(DateToStr(Now)) = EncodeDate(2004, 4, 1) then showmessage('HALLOO'); bei mir kommt die Message "LIRPA LIRPA", das kann doch garnicht sein ??

Gruß Hagen

[MathiasSimmack]

Jungs, ihr habt eindeutig zuviel Zeit.

[negaH]

Naja, es wäre schon schön wenn Delphi nicht so viele unerwartete Bugs hätte.
Für mich ich die Lösung des Problemes schon wichtig, als Kommentare die mein Problem nicht lösen.

Also, hat irgendwer noch eine Ahnung warum das bei mir nich funktioniert, oder ist jemand ein ähnliches Problem untergekommen ??


Gruß Hagen

[neolithos]

Muss man das jetzt verstehen

Zitat:

"LIRPA LIRPA"