日付の日数の求め方

解決

Begi 2020-01-10 02:55:23 No: 148439 IP: 192.*.*.*

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 03:43:19 No: 148441 IP: 192.*.*.*

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

編集削除

Begi 2020-01-10 04:14:10 No: 148442 IP: 192.*.*.*

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

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

編集削除

Begi 2020-01-10 04:17:01 No: 148443 IP: 192.*.*.*

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

編集削除