在业务系统中处理小数精度, 四舍五入,全舍弃,全进位的方法

AMOUNTDOT　　  NUMBER(4,2) DEFAULT 0.01,  --金额精确度 1: 精确到元  0.1:精确到角  0.01:精确到分ROUNDING　　　 NUMBER(1) ,　　　　　　　　　　　　　　　　  --舍入分界  -- 9: 全舍  0: 全入  4:四舍5入　 

建立Oracle(大型网站数据库平台)函数,传入设置ID,传入金额,返回处理过的金额

存储过程实现代码如下

create or replace function Get_Real_Number (  --根据处理方法ID,取得处理后的金额-计算的金额
　　　　　  ID IN NUMBER, -- 处理方法ID
　　　　　  n_Amount IN NUMBER)　　
  -----------------------------------------------------------------------
  --  用  途　 自定义数据精度处理。
  --  创建者  ：Andrew
  -----------------------------------------------------------------------
  --  修改记录列表：（按日期的先后顺序逆序排列）
  --  修改时间　　 修改人　　  实现的功能说明
　 -- 9 全舍  0 全入  4四舍5入 
  -----------------------------------------------------------------------
return NUMBER-- 返回的金额
IS
　　　 v_amountdot VARCHAR2(5);　　  --小数位数字符
　　　 v_keep　　  NUMBER ;　　　　  --保留的小数位数
　　　 v_rounding  NUMBER ;　　　  --舍入分界
　　   v_Amount NUMBER:=0 ;　　　　 --返回的金额
BEGIN

SELECT  amountdot,  nvl(rounding,0) INTO v_amountdot,v_rounding FROM  处理方法表
　　　　　　 WHERE id = SALE_PLACE_ID;
　　 v_keep := Length(v_amountdot) -  instr(v_amountdot,'.') ;  --要保留的小数位数
　　 IF v_rounding = 9 THEN　 --处理全舍弃
　　　  v_Amount := trunc(n_Amount,v_keep);
　　 END IF;
　　
　　 IF v_rounding = 4 THEN　　--处理四舍五入
　　　  v_Amount := round(n_Amount,v_keep);
　　 END IF;
　　
　　 IF v_rounding = 0 THEN　--处理全进位
　　　　　  v_Amount := trunc(n_Amount,v_keep);　 --小数为数刚好等于要求保留的数
　　　　　 IF v_Amount <> n_Amount THEN　 --如果截取后的数与原来的数字不同,进1
　　　　　 v_Amount := v_Amount + to_number(v_amountdot);
　　 END IF;

　　 RETURN v_Amount;

exception
 when OTHERS then RETURN n_Amount;　　　　　　　　　　　　　　　　　　　　　　

END Get_Real_Number;