paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 15:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed decodetime

Browse Source 
git-svn-id: trunk@47639 -
This commit is contained in:
mattias 2015-02-07 12:15:47 +00:00
parent 1ace74c1d3
commit 702fefa1c2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/ppuparser.pas
View File

@ -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;