作者：未知 来源：月光软件站 加入时间：2005-5-13　月光软件站

在业务系统中,不同的客户对小数的处理有不同的方法

通过在设置保留的小数位数,以及小数位数以后的尾数的处理方法,可以灵活的满足客户要求

处理方法表

 ID NUMBER(1)    ,                                                       --设置ID

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;

相关软件：