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

* resolution of now increased to ms

Browse Source
This commit is contained in:
marco 2004-11-14 15:10:44 +00:00
parent 05475089e2
commit 8d238cd712
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/unix/sysutils.pp
View File

@ -820,10 +820,13 @@ End;
Procedure GetLocalTime(var SystemTime: TSystemTime); Procedure GetLocalTime(var SystemTime: TSystemTime);
var
usecs : Word;
begin begin
GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second); GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond, usecs);
GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day); GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day);
SystemTime.MilliSecond := 0; // SystemTime.MilliSecond := 0;
end ; end ;
@ -1088,7 +1091,10 @@ end.
{ {
$Log$ $Log$
Revision 1.53 2004-11-06 17:24:07 marco Revision 1.54 2004-11-14 15:10:44 marco
* resolution of now increased to ms
Revision 1.53 2004/11/06 17:24:07 marco
* getenv had ansistring as param due to {$H+} now shortstring. * getenv had ansistring as param due to {$H+} now shortstring.
Revision 1.52 2004/11/02 13:59:42 marco Revision 1.52 2004/11/02 13:59:42 marco