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

* Fix patch 34481

Browse Source 
git-svn-id: trunk@34511 -
This commit is contained in:
michael 2016-09-11 14:18:12 +00:00
parent b08475b5ba
commit b1b312b705
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

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