diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc
index 1c0afa2931..a4335e3ec4 100644
--- a/rtl/objpas/sysutils/dati.inc
+++ b/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;
\ No newline at end of file
diff --git a/rtl/objpas/sysutils/datih.inc b/rtl/objpas/sysutils/datih.inc
index e55e7266d6..45e9e12902 100644
--- a/rtl/objpas/sysutils/datih.inc
+++ b/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;