Replace the time part
Source position: datih.inc line 199
procedure ReplaceTime(
var dati: Double;
NewTime: Double
);
ReplaceTime replaces the time part in dati with NewTime. The date part remains untouched.