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

Возвращает количество недель между двумя значениями дата/время.

Параметры:

• ANow - начальное значение дата/время.
• AThen - конечное значение дата/время.