Source position: dateutil.inc line 380
function RecodeDay(
const AValue: TDateTime;
const ADay: Word
):TDateTime;