Source position: dateutil.inc line 277
procedure PeriodBetween(
const ANow: TDateTime;
const AThen: TDateTime;
out Years: Word;
out months: Word;
out days: Word
);