Узнать количество недель

[EugeneIsmatulin]

Добрый день уважаемые форумчане помогите мне с такой проблемой при написании программы столкнулся с тем что мне нужно узнать количество недель из выбранного периода. Выбираем с помощью DateTimePicker1 начало периода а DateTimePicker2 выбираем конец периода при нажатии на кнопку должен вы ходить результат сколько недель в этом периоде.
Помогите пожалуйста

[Скандербег]

Количество целых семидневок в заданном периоде:
(Trunc(DateTimePicker2.Date) - Trunc(DateTimePicker1.Date)) div 7;

[Квэнди]

в модуле dateutils есть соответствующая функция

Returns the number of whole weeks between two specified TDateTime values.

Pascal
function WeeksBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;
C++
int WeeksBetween(const TDateTime ANow, const TDateTime AThen);
File
DateUtils

Description
Call WeeksBetween to obtain the difference, in weeks, between two TDateTime values. WeeksBetween counts only whole Weeks. Thus, WeeksBetween reports the difference between January 1 at 12:00 AM and Jan 6 at 11:58 PM as 0 because the difference is one minute short of an entire week.

[EugeneIsmatulin]

Спасибо за помощь.