* Added msec precision to TimeStampStructToDateTime (bug ID 19284, patch bu Lacak2

git-svn-id: trunk@17402 -

packages/odbc/src/odbcsql.inc

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