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

printers: fixed combining date+time

Browse Source 
git-svn-id: trunk@47625 -
This commit is contained in:
mattias 2015-02-07 12:01:44 +00:00
parent 0d19bf6dd6
commit 757729e0d9
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/printers/unix/udlgprintersjobs.pp
View File

@ -229,8 +229,8 @@ begin
begin
Try
if lTime^.tm_year=70 then Exit;
Dt:=EncodeDate(lTime^.tm_year+1900,lTime^.tm_mon+1,lTime^.tm_mday)+
EncodeTime(lTime^.tm_hour,lTime^.tm_min,lTime^.tm_sec,0);
Dt:=ComposeDateTime(EncodeDate(lTime^.tm_year+1900,lTime^.tm_mon+1,lTime^.tm_mday),
EncodeTime(lTime^.tm_hour,lTime^.tm_min,lTime^.tm_sec,0));
Result:=DateTimeToStr(Dt);
Except
end;