kleiner nachtrag:
schau dir die deklaration der function daybetween in der
unit dateutils doch einmal genau an:
Delphi-Quellcode:
function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
Result := Trunc(DaySpan(ANow, AThen));
end;
-->
Delphi-Quellcode:
function DaySpan(const ANow, AThen: TDateTime): Double;
begin
Result := SpanOfNowAndThen(ANow, AThen);
end;
-->
Delphi-Quellcode:
function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
begin
if ANow < AThen then
Result := AThen - ANow
else
Result := ANow - AThen;
end;
hier werden die werte halt entsprechend sortiert. man kann keinen negativwert zurückgeliefert bekommen.
aber diese kleine function könntest du ja selbst für dich in deiner
unit implementieren anstatt auf daysbetween zurückzugreifen.
also würde die verwendung dieser beispielfunktion für dich genau das richtige sein:
Delphi-Quellcode:
function myDaysBetween(const aDate1, aDate2: TDateTime): TDateTime;
begin
Result := aDate2 - aDate1;
end;