diff --git a/components/codetools/ppuparser.pas b/components/codetools/ppuparser.pas
index f97268153e..0064381d54 100644
--- a/components/codetools/ppuparser.pas
+++ b/components/codetools/ppuparser.pas
@@ -1029,8 +1029,8 @@ begin
     exit;
   end;
   DT := FileDateToDateTimeDef(t);
-  DecodeTime(DT,hour,min,sec,hsec);
-  DecodeDate(DT,year,month,day);
+  DecodeTime(Frac(DT),hour,min,sec,hsec);
+  DecodeDate(Trunc(DT),year,month,day);
   Result := L0(Year)+'/'+L0(Month)+'/'+L0(Day)+' '+L0(Hour)+':'+L0(min)+':'+L0(sec);
 end;