CompareDate gibt immer 1 aus...

[Codix32]

Merkwürdiges Verhalten bei CompareDate

Egal ob der erste Datumwert kleiner, größer, oder gleich dem Zweiten ist:

Der Wert ist immer 1

Hat jemand sowas schon erlebt?

Delphi-Quellcode:

var
  a, b:TDate;
begin
 a:= now;
 if Key = VK_Return then
  begin
   b:= strtodate(Edit1.Text);
   Label1.Caption:= inttostr(compareDate(a,b));
  end;
end;

[Popov]

Bedenke bitte, dass es im Grunde egal ist ob du TDateTime oder TDate oder TTime nimmst. Im Hintergrund ist alles TDateTime. Das ist irreführend, aber TDate speichert nicht Datum, sondern auch Uhrzeit ab.

Wenn du also eine TDate Variable definierst und ihr Now zuweist, dann hast du ihr Datum und Uhrzeit zugewiesen. Die Variable enthält also den TDateTime Wert. Und Now jetzt, selbst wenn es eine TDate Variable ist, und Now eine Millisekunde später, sind nicht gleich.

Lösung:

- Statt Now Funktion Date Funktion nehmen. Die gibt nur das Datum zurück.
- oder Trunc(Now) eingeben. Damit wird die Uhrzeit angeschnitten.

[Dalai]

@Popov: Ich nahm an, weil du Delphi 7 hast, kannst du nachschauen, was CompareDate macht. CompareDate vergleicht nur den Datumsteil, oder anders ausgedrückt: beide Parameter werden einem Trunc unterzogen (zumindest für den Vergleich auf Gleichheit).

Die Frage ist also: Was steht in den beiden Variablen a und b drin? Das bekommt man ja leicht raus mit DateToStr.

MfG Dalai

[Popov]

Ich hab vorher den Code nicht ausprobiert, aber CompareDate gibt richtige Ergebnisse raus. Vorausgesetzt die Eingabe ist richtig, z. B. "15.05.2015".

[Dejan Vu]

Nimm mal die 'If Key=' Abfrage raus. Wäre ja denkbar, das es sich nur um ein Wahrnehmungsproblem handelt. Ansonsten stelle das Problem mit einem kleinen Testprogramm dar.

Delphi-Quellcode:

Program Tester;
{$APPTYPE CONSOLE}

Procedure TestCompareDate (a : TDate; bStr : String);
var
  b : TDate;

Begin
  b := StrToDate(bStr);
  Writeln ('CompareDate('DateToStr(a),',',DateToStr(b),')=',CompareDate(a,b));
End;

begin
  TestCompareDate(Now,'1.1.2015');
  TestCompareDate(Now,'1.1.2016');
end.

Trage jeweils deine Testdaten ein, mit denen bei Dir angeblich '1' rauskommt.

[Codix32]

Zitat von Dejan Vu:

Trage jeweils deine Testdaten ein, mit denen bei Dir angeblich '1' rauskommt.

Dein Beispiel funktioniert bei mir richtig.

Aber hier:

Delphi-Quellcode:

function TForm1.Tagedazwischen(vor, nach:TDate):Integer;
begin
 if compareDate(vor,nach) >= 0 then Result:= daysbetween(vor,nach)
 Else if compareDate(vor,nach) < 0 then Result := -1;
end;

Das Ergebnis bleibt immer 1.
Und eine Meldung lautet:
[Warnung] Unit1.pas(94): W1035 Rückgabewert der Funktion 'TForm1.Tagedazwischen' könnte undefiniert sein

Warum?

Aufgerufewn wird die Funktion hier:

Delphi-Quellcode:

procedure TForm1.Zeitraum(dt:TDate);
var
  vorTag:TDate;                                        
begin
Gauge1.Progress:=0; Gauge2.Progress:=0;Gauge3.Progress:=0;
 vorTag:= strtoDate('17.04.2015');
  if wievieltePackung(Tagedazwischen(dt, vorTag)) >= 1 then
     Gauge1.Progress:=  round(100 / 28 * Tagedazwischen(dt, vorTag));

Dabei spielt es keine Rolle ob ich Zeitraum(Now) oder Zeitraum(Date) schreibe.