Source position: dateutil.inc line 365
function RecodeDate(
const AValue: TDateTime;
const AYear: Word;
const AMonth: Word;
const ADay: Word
):TDateTime;