DaysBetween(A, B : DateTime) : Integer
Количество дней между двумя датами

Функция DaysBetween возвращает количество дней между двумя датами. Если A<B, то результат положительный. Если A>B, то результат отрицательный.

Пример:

Procedure OnCreate;
Var
  A, B : DateTime;
  N : Integer;
Begin
  A := EncodeDate(2011, 2, 23); // 23 февраля 2011 года
  B := EncodeDate(2011, 3,  8); // 8 марта 2011 года
  N := DaysBetween(A, B);
  Warning(ToStr(N)+' дней'); // 13 дней
End;

© RTIT