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

+ also fill DayOfWeek in the Unix implementation of SysUtils.GetLocalTime

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-13 02:39:04 +03:00
parent f20de5d583
commit f21273612a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/unix/sysutils.pp
View File

@ -1432,6 +1432,7 @@ var
usecs : Word;
begin
DoGetLocalDateTime(SystemTime.Year, SystemTime.Month, SystemTime.Day,SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond, usecs);
SystemTime.DayOfWeek:=DayOfWeek(EncodeDate(SystemTime.Year,SystemTime.Month,SystemTime.Day))-1;
end ;
{$endif}