日付の日数の求め方

解決

Begi 2020-01-10 11:55:23 No: 148439

Delphi初心者です。
二つの日付の間の日数を求めたいのですが、下記の方法は間違っているみたいでどのように直したらよいですか？

var
  ToDay: TDateTime;
  Day: TDateTime;
  Ans: TDateTime;

begin
  ToDay := Date;  //2020/01/10
  Day := StrToDateTime('2019/12/01');
  Ans := ToDay - Day;

  ShowMessage(DateTimeToStr(Ans));
ens;

igy 2020-01-10 12:43:19 No: 148441

DaysBetween 関数を使うのは、ダメですか？

Begi 2020-01-10 13:14:10 No: 148442

そんな便利な関数があったのですね。
一応試したのですが、「1900/02/08」と表示されてしまいます。
下記のコードだと間違っていますか？

ShowMessage(DateTimeToStr(DaysBetween(ToDay, Day)));

Begi 2020-01-10 13:17:01 No: 148443

DataTimeToStrではなく、
IntToStrで型変換したら日数がでました！
ありがとうございました！