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