CompareDate gibt immer 1 aus...

[himitsu]

Zitat:

Warum?

Formatiere mal den Quelltext ordentlich und dann sieht du es bestimmt.


[edit]

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
    {else
      Result := ???};
end;

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  // Oder das weglassen, da eh sinnlos, aber das weiß der Compiler ja nicht.
      Result := -1;
end;