Source position: dateutil.inc line 327
procedure DecodeDateWeek(
const AValue: TDateTime;
out AYear: Word;
out AWeekOfYear: Word;
out ADayOfWeek: Word
);