Source position: dateutil.inc line 271
function WeeksBetween(
const ANow: TDateTime;
const AThen: TDateTime
):Integer;