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

* Reverted revision 30557

Browse Source 
git-svn-id: trunk@30577 -
This commit is contained in:
michael 2015-04-13 19:45:25 +00:00
parent 10633da13b
commit 1e365f341e
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,13 +61,8 @@ begin
D:=D-0.5
else
D:=D+0.5;
Result.Time := Abs(Trunc(D)) Mod MSecsPerDay;
result.Time := Abs(Trunc(D)) Mod MSecsPerDay;
result.Date := DateDelta + Trunc(D) div MSecsPerDay;
if D<0 then
begin
Result.Time:=MSecsPerDay-Result.time;
Result.Date:=Result.Date-1;
end;
end;
{ TimeStampToDateTime converts TimeStamp to a TDateTime value }