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

amicommon: GetLocalTime correct millisecond value

Browse Source 
git-svn-id: trunk@28526 -
This commit is contained in:
marcus 2014-08-27 15:36:52 +00:00
parent feb255ec48
commit 4ef87579eb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/amicommon/sysutils.pp
View File

@ -568,8 +568,10 @@ end;
Procedure GetLocalTime(var SystemTime: TSystemTime);
var
dayOfWeek: word;
Sec100: Word;
begin
dos.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second,SystemTime.Millisecond);
dos.GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second, Sec100);
SystemTime.Millisecond := Sec100 * 10;
dos.GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day, DayOfWeek);
end;