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

* Fix 31833

Browse Source 
git-svn-id: trunk@36406 -
This commit is contained in:
michael 2017-06-03 15:22:30 +00:00
parent f9fb13922c
commit 7f2d53dc65
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl-objpas/src/inc/dateutil.inc
View File

@ -2153,7 +2153,8 @@ begin
year := (100*b) + d - 4800 + ( m div 10 );
result := TryEncodeDate ( Year, Month, Day, ADateTime );
if Result then
ADateTime:=IncMilliSecond(IncHour(ADateTime,-12),MillisecondOfTheDay(Abs(Frac(aValue))));
// ADateTime:=IncMilliSecond(IncHour(ADateTime,-12),MillisecondOfTheDay(Abs(Frac(aValue))));
ADateTime:=ADateTime+frac(AValue-0.5);
end;
Function DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;