function WeeksBetween(const ANow, AThen: TDateTime): Integer
Возвращает количество недель между двумя значениями дата/время.
Параметры: