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

* Fix bug ID #27751 (Fill SystemTime.DayOfWeek)

Browse Source 
git-svn-id: trunk@30384 -
This commit is contained in:
michael 2015-03-29 21:02:26 +00:00
parent 8f569f4d88
commit 9ae76c3246
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/sysutils/dati.inc
View File

@ -216,8 +216,9 @@ end;
procedure DateTimeToSystemTime(DateTime: TDateTime; out SystemTime: TSystemTime);
begin
DecodeDate(DateTime, SystemTime.Year, SystemTime.Month, SystemTime.Day);
DecodeDateFully(DateTime, SystemTime.Year, SystemTime.Month, SystemTime.Day,SystemTime.DayOfWeek);
DecodeTime(DateTime, SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond);
Dec(SystemTime.DayOfWeek);
end ;
{ SystemTimeToDateTime converts SystemTime to a TDateTime value }

2
rtl/objpas/sysutils/datih.inc
View File

@ -93,7 +93,7 @@ type
{$if not(defined(windows)) and not(defined(win32))}
{ Win32 reuses the struct from the Windows unit }
TSystemTime = record
Year, Month, Day: word;
Year, Month, Day, DayOfWeek: word;
Hour, Minute, Second, MilliSecond: word;
end ;
{$endif windows}