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

* Fixes date arithmetic before tdatetime epoch. Mantis #21348, patch by Lacak2

Browse Source 
git-svn-id: trunk@20402 -
This commit is contained in:
marco 2012-02-22 20:53:30 +00:00
parent 8d6ed78b8e
commit 49f15aa271
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/odbc/src/odbcsql.inc
View File

@ -1709,8 +1709,7 @@ Function TimeStampStructToDateTime( B : PSQL_TIMESTAMP_STRUCT) : TDateTime;
begin
With B^ do
Result:=EncodeDate(Year,Month,Day)+
EncodeTime(Hour,Minute,Second,Fraction div 1000000);
Result:=ComposeDateTime(EncodeDate(Year,Month,Day), EncodeTime(Hour,Minute,Second,Fraction div 1000000));
end;
Function TimeStructToDateTime (B : PSQL_TIME_STRUCT) : TDateTime;