Datum convert error

[semo]

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;