* Fix currency to SQL_NUMERIC_STRUCT for platforms without extended

git-svn-id: trunk@43697 -

packages/odbc/src/odbcsql.inc

@@ -1962,7 +1962,7 @@ begin
     Result.sign:=0;
     c := -c;
   end;
-  n := NtoLE(Trunc(c*10000));
+  n := NtoLE(Trunc(c)*10000 + Round(Frac(c)*10000));
   for i:=0 to high(Result.val) do begin
     Result.val[i] := n and $ff;
     n := n shr 8;