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

* Fix bug found by new hint.

Browse Source 
git-svn-id: trunk@7818 -
This commit is contained in:
daniel 2007-06-26 07:52:55 +00:00
parent 45832d4314
commit 7c124b3817
1 changed files with 1 additions and 1 deletions

2
rtl/objpas/dateutil.inc
View File

@ -958,7 +958,7 @@ Var
begin
DecodeTime(AValue,H,M,S,MS);
Result:=((M+(H+((DayOfTheYear(AValue)-1)*24))*60)*60+S)*1000+MS;
Result:=((M+(H+((int64(DayOfTheYear(AValue))-1)*24))*60)*60+S)*1000+MS;
end;