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