Source position: dateutil.inc line 336
procedure DecodeDateDay(
const AValue: TDateTime;
out AYear: Word;
out ADayOfYear: Word
);