Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.034 Beiträge
 
Delphi 12 Athens
 
#7

AW: CompareDate gibt immer 1 aus...

  Alt 25. Mai 2015, 23:50
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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (25. Mai 2015 um 23:57 Uhr)
  Mit Zitat antworten Zitat