Source position: dateutil.inc line 401
procedure DecodeDayOfWeekInMonth(
const AValue: TDateTime;
out AYear: Word;
out AMonth: Word;
out ANthDayOfWeek: Word;
out ADayOfWeek: Word
);