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

git-svn-id: trunk@20402 -

packages/odbc/src/odbcsql.inc

@@ -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;