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

* Fixed bug ID #23464

Browse Source 
git-svn-id: trunk@23328 -
This commit is contained in:
michael 2013-01-06 16:49:35 +00:00
parent a701176c70
commit b55eb113a6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -894,6 +894,9 @@ var
StoreStr(pchar(@S[1]), Length(S)); StoreStr(pchar(@S[1]), Length(S));
end ; end ;
Const
msec2 = 1 / (24*60*60*1000*2); // Half a millisecond, for rounding.
var var
Year, Month, Day, DayOfWeek, Hour, Minute, Second, MilliSecond: word; Year, Month, Day, DayOfWeek, Hour, Minute, Second, MilliSecond: word;
@ -1107,8 +1110,8 @@ begin
{$ifdef MSWindows} {$ifdef MSWindows}
eastasiainited:=false; eastasiainited:=false;
{$endif MSWindows} {$endif MSWindows}
DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek); DecodeDateFully(DateTime+Msec2, Year, Month, Day, DayOfWeek);
DecodeTime(DateTime, Hour, Minute, Second, MilliSecond); DecodeTime(DateTime+Msec2, Hour, Minute, Second, MilliSecond);
ResultLen := 0; ResultLen := 0;
ResultCurrent := @ResultBuffer[0]; ResultCurrent := @ResultBuffer[0];
if FormatStr <> '' then if FormatStr <> '' then