Source position: dateutil.inc line 353
procedure DecodeDateMonthWeek(
const AValue: TDateTime;
out AYear: Word;
out AMonth: Word;
out AWeekOfMonth: Word;
out ADayOfWeek: Word
);