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

codetools: fixed decodetime

Browse Source 
git-svn-id: branches/fixes_1_4@47640 -
This commit is contained in:
mattias 2015-02-07 12:16:07 +00:00
parent c3fd874e66
commit 6dfe26c640
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;