diff --git a/client/3.0/FB30ClientAPI.pas b/client/3.0/FB30ClientAPI.pas
index bb36988..b6897cb 100644
--- a/client/3.0/FB30ClientAPI.pas
+++ b/client/3.0/FB30ClientAPI.pas
@@ -710,7 +710,7 @@ procedure TFB30ClientAPI.SQLDecFloatEncode(aValue: tBCD; SQLType: cardinal;
 begin
   inherited SQLDecFloatEncode(aValue, SQLType, bufptr);
   sign := (aValue.SignSpecialPlaces and $80) shr 7;
-  exp := -(aValue.SignSpecialPlaces and $2f);
+  exp := -(aValue.SignSpecialPlaces and $3f);
 
   case SQLType of
   SQL_DEC16:
@@ -797,7 +797,7 @@ function TFB30ClientAPI.SQLDecFloatDecode(SQLType: cardinal; bufptr: PByte): tBC
   else
     IBError(ibxeInvalidDataConversion,[]);
   end;
-  Result.SignSpecialPlaces :=  (-exp and $2f);
+  Result.SignSpecialPlaces :=  (-exp and $3f);
   if sign <> 0 then
     Result.SignSpecialPlaces := Result.SignSpecialPlaces or $80;
 end;