Source position: dateutil.inc line 370
function RecodeHour(
const AValue: TDateTime;
const AHour: Word
):TDateTime;