function DaysBetween(const ANow, AThen: TDateTime): Integer  

Возвращает количество полных дней между двумя датами. При вычислении дробная часть (время) отбрасывается.

Параметры:

• ANow - начальная дата.
• AThen - конечная дата.