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

Delphi-Quellcode:

   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,

Delphi-Quellcode:

  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"

[MathiasSimmack]

Zitat:

Zitat von negaH

Naja, es wäre schon schön wenn Delphi nicht so viele unerwartete Bugs hätte.

Was heißt "unerwartet"?

Zitat:

Für mich ich die Lösung des Problemes schon wichtig, als Kommentare die mein Problem nicht lösen.

Das verstehe ich, darum:

Zitat:

Also, hat irgendwer noch eine Ahnung warum das bei mir nich funktioniert, [...]

Nein, ich leider nicht ...

Zitat:

... oder ist jemand ein ähnliches Problem untergekommen ??

Bis heute nicht. Aber ich vergleiche recht selten den 1. April mit dem 1. April.

:zwinker:

[negaH]

:)

[axelf98]

Bei mir in Delphi 5 klappt auch folgendes:

Delphi-Quellcode:

 if date = EncodeDate(2004, 4, 1) then showmessage('HALLOO');

[CenBells]

*Ohhhh wie peinlich* :spin2: :spin2: :spin2: :spin2: :oops: :oops: :thuimb: :thuimb: :thuimb: :-D :-D

Gruß
KEn

[neolithos]

Zitat:

Zitat von CenBells

*Ohhhh wie peinlich* :spin2: :spin2: :spin2: :spin2: :oops: :oops: :thuimb: :thuimb: :thuimb: :-D :-D

Gruß
KEn

Wieso? Solche Probleme kann es in der Informatik geben! So abwegig war das nicht! :warn:

Aber auf das heutige Datum hätte ich irgentwann man schauen könnnen. :mrgreen:

[negaH]

Zitat:

Wieso? Solche Probleme kann es in der Informatik geben! So abwegig war das nicht!

Macht ja auch wenig Sinn euch mit einer absolut offensichtlichen Falle aufzulauern, ihr müsst schon noch draufreinfallen sonst kann ich ja nicht so herzlichst lachen :)

Aber denoch habe ich eine Lösung gefunden, danke an Matthias, ich habe meine Systemdatum auf morgen gestellt :)

Gruß April April.