Синтаксис
function WeeksBetween(ANow, AThen: TDateTime): Integer;
Описание
Возвращает количество полных недель между двумя значениями TDateTime.
Пример кода
var
I: Integer;
begin
I := WeeksBetween(Now, Yesterday); // получить кол-во недель между сегодняшней и вчерашней датами
end.