[Aristarh Dark]

Читаем справку:

DaysBetween function
Returns the number of whole days between two specified TDateTime values.

Unit
DateUtils

Delphi syntax:
function DaysBetween(const ANow, AThen: TDateTime): Integer;