* Replacetime. Bug #7680

git-svn-id: trunk@5033 -

rtl/objpas/sysutils/dati.inc

@@ -832,3 +832,8 @@ begin
     result:=defvalue;
 end;
 
+procedure ReplaceTime(var dati:TDateTime; NewTime : TDateTime);
+
+begin
+  dati:=trunc(dati)+frac(newtime);
+end;

rtl/objpas/sysutils/datih.inc

@@ -139,3 +139,4 @@ function CurrentYear:Word;
 { FPC Extra }
 Procedure GetLocalTime(var SystemTime: TSystemTime);
 
+procedure  ReplaceTime(var dati:TDateTime; NewTime : TDateTime); inline;