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