oracle实现阿拉伯数字转化为大写汉字的函数

---

oracle实现阿拉伯数字转化为大写汉字的函数

ysj5125094 2011-10-28 20:34:33  1115  收藏

分类专栏： oracle PL SQL 文章标签： oracle function 数字 转换 大写

今天工作中遇到了要改货币金额转换为大写显示的需求,找到了一些前辈们的代码,总结了一下贴出来,以备以后查看学习使用.

 

1.专门用于转化年份的函数TO_UPPER_YEAR.

CREATE OR REPLACE FUNCTION TO_UPPER_YEAR(YEAR_IN  IN VARCHAR2)




 RETURN VARCHAR2




/**




 *年转化为大写汉字的函数 如将2008转换为二〇〇八




 *月份和日期转换的可以调用 TO_UPPER_NUM 函数




 *如SELECT TO_UPPER_NUM('21','2','2') FROM DUAL




 *查询系统大写年月日如下:




 *SELECT TO_UPPER_YEAR(TO_CHAR(SYSDATE,'YYYY')) || '年' ||




 *       TO_UPPER_NUM(TO_CHAR(SYSDATE,'MM'),'2','2') || '月' ||




 *       TO_UPPER_NUM(TO_CHAR(SYSDATE,'DD'),'2','2') || '日'  SJ




 *FROM DUAL




 */




IS




  TEMP     VARCHAR2(32767);




  RESULT   VARCHAR2(32767);




  STR      VARCHAR2(32767) := '〇一二三四五六七八九';




BEGIN




  IF YEAR_IN IS NULL THEN




    RETURN NULL;




  END IF;




  FOR I IN 1 .. LENGTH(YEAR_IN)




   LOOP




     SELECT SUBSTR(STR, SUBSTR(YEAR_IN,I, 1) + 1, 1)




       INTO TEMP




       FROM DUAL;




     RESULT := RESULT || TEMP;




   END LOOP;




  RETURN RESULT;




EXCEPTION




  WHEN OTHERS THEN




    DBMS_OUTPUT.PUT_LINE(SQLERRM);




    RETURN '';




END;

 

2.用于阿拉伯数字转化为大写汉字的函数TO_UPPER_NUM.

CREATE OR REPLACE FUNCTION TO_UPPER_NUM




(




  P_NUM   IN NUMBER DEFAULT NULL,




  P_ROUND NUMBER    DEFAULT 2,    --输出要保留的小数位数




  P_MONTH NUMBER    DEFAULT 1     --输出不为月份或者日时,当此参数输入不为1时,返回值为大写(非汉字)数字




)




  RETURN  NVARCHAR2




IS




  /**




   *阿拉伯数字转化为大写汉字的函数




   *输入参数转换前的数字,要保留的小数位数(4舍5入可以不输入,默认为小数点后2位)




   *输出参数为转化后的大写数字




   *支持小数点和负数,但数字整数部分不能超过16位




   *支持转换月份和日期,如 SELECT TO_UPPER_NUM('31','3','2') FROM DUAL




   *--日期例子(年份的转换见另一个函数)




   *  SELECT TO_UPPER_YEAR(TO_CHAR(SYSDATE,'YYYY')) || '年' ||




   *  TO_UPPER_NUM(TO_CHAR(SYSDATE,'MM'),'2','2') || '月' ||




   *  TO_UPPER_NUM(TO_CHAR(SYSDATE,'DD'),'2','2') || '日' 




   *  FROM DUAL ;




   *--货币例子(截取小数点后两位,四舍五入)




   *  SELECT TO_UPPER_NUM(1234.564) FROM dual ;




   */




   RESULT      NVARCHAR2(100) := ''; --返回大写汉字字符串




   NUM_ROUND   NVARCHAR2(100) := TO_CHAR(ABS(ROUND(P_NUM, P_ROUND))); --转换数字为小数点后p_round位的字符(正数)




   NUM_LEFT    NVARCHAR2(100);       --小数点左边的数字




   NUM_RIGHT   NVARCHAR2(100);       --小数点右边的数字




   STR1        NCHAR(10) := '零壹贰叁肆伍陆柒捌玖';             --数字大写




   STR2        NCHAR(16) := '点拾佰仟万拾佰仟亿拾佰仟万拾佰仟'; --数字位数(从低至高)




   STR3        NCHAR(10) := '〇一二三四五六七八九';             --月份数字大写




   STR4        NCHAR(16) := '点十佰仟万拾佰仟亿拾佰仟万拾佰仟'; --数字位数(从低至高)




   NUM_PRE     NUMBER(1) := 1;       --前一位上的数字




   NUM_CURRENT NUMBER(1);            --当前位上的数字




   NUM_COUNT   NUMBER := 0;          --当前数字位数




BEGIN




  --转换数字为NULL时，返回NULL




  IF P_NUM IS NULL THEN




    RETURN NULL;




  END IF;




  --如果要转换月份或者日时,则替换临时变量




  IF P_MONTH <> 1 THEN




    STR1 := STR3;




    STR2 := STR4;




  END IF;




  --取得小数点左边的数字




  SELECT TO_CHAR(NVL(SUBSTR(TO_CHAR(NUM_ROUND),




                            1,




                            DECODE(INSTR(TO_CHAR(NUM_ROUND), '.'),




                                   0,




                                   LENGTH(NUM_ROUND),




                                   INSTR(TO_CHAR(NUM_ROUND), '.') - 1)),




                     0))




    INTO NUM_LEFT




    FROM DUAL;




  --取得小数点右边的数字




  SELECT SUBSTR(TO_CHAR(NUM_ROUND),




                DECODE(INSTR(TO_CHAR(NUM_ROUND), '.'),




                       0,




                       LENGTH(NUM_ROUND) + 1,




                       INSTR(TO_CHAR(NUM_ROUND), '.') + 1),




                P_ROUND)




    INTO NUM_RIGHT




    FROM DUAL;




  --数字整数部分超过16位时.采用从低至高的算法，先处理小数点左边的数字




  IF LENGTH(NUM_LEFT) > 16 THEN




    RETURN '**********';




  END IF;




  FOR I IN REVERSE 1 .. LENGTH(NUM_LEFT) LOOP




    --(从低至高)




    NUM_CURRENT := TO_NUMBER(SUBSTR(NUM_LEFT, I, 1)); --当前位上的数字




    NUM_COUNT   := NUM_COUNT + 1;                     --当前数字位数




    --当前位上数字不为0按正常处理




    IF NUM_CURRENT > 0 THEN




     --如果转换数字最高位是十位,转换后不需要前面的壹,如月份12转换后为拾贰,则




      IF NUM_CURRENT = 1 AND P_MONTH <> 1 AND NUM_COUNT = 2 THEN




        RESULT :=  SUBSTR(STR2, NUM_COUNT, 1) || RESULT;





        STR1 := STR3;




      ELSE




        RESULT := SUBSTR(STR1, NUM_CURRENT + 1, 1)




                ||SUBSTR(STR2, NUM_COUNT, 1)




                || RESULT;




      END IF;




    ELSE




      --当前位上数字为0时




      IF MOD(NUM_COUNT - 1, 4) = 0 THEN




        --当前位是点、万或亿时




        RESULT  := SUBSTR(STR2, NUM_COUNT, 1) || RESULT;




        NUM_PRE := 0; --点、万,亿前不准加零




      END IF;




      IF NUM_PRE > 0 OR LENGTH(NUM_LEFT) = 1 THEN




        --上一位数字不为0或只有个位时




        RESULT := SUBSTR(STR1, NUM_CURRENT + 1, 1) || RESULT;




      END IF;




    END IF;




    NUM_PRE := NUM_CURRENT;




  END LOOP;




  --再处理小数点右边的数字




  IF LENGTH(NUM_RIGHT) > 0 THEN




    FOR I IN 1 .. LENGTH(NUM_RIGHT) LOOP




      --(从高至低)




      NUM_CURRENT := TO_NUMBER(SUBSTR(NUM_RIGHT, I, 1)); --当前位上的数字




      RESULT      := RESULT || SUBSTR(STR1, NUM_CURRENT + 1, 1);




    END LOOP;




  ELSE




    RESULT := REPLACE(RESULT, '点', '');                 --无小数时去掉点




  END IF;




  --转换数字是负数时




  IF P_NUM < 0 THEN




    RESULT := '负' || RESULT;




  END IF;




  RETURN RESULT;




EXCEPTION




  WHEN OTHERS THEN




    DBMS_OUTPUT.PUT_LINE(SQLERRM);




    RETURN '';




END;

• 

---

Oracle实现小写金额转换成大写的方法

霜知坚冰 2011-10-26 14:47:21  1214  收藏

分类专栏： Oracle(Database) 文章标签： oracle null function

版权

Oracle实现小写金额转换成大写的方法，代码如下：
CREATE OR REPLACE FUNCTION convert_money(n_LowerMoney IN NUMBER,
                                         v_TransType IN NUMBER DEFAULT 1 -- 1: directly translate, 0: read it in words
                                         ) RETURN VARCHAR2 AS
  v_LowerStr VARCHAR2(200); -- 小写金额
  v_UpperPart VARCHAR2(200);
  v_UpperStr VARCHAR2(200); -- 大写金额
BEGIN
  v_LowerStr := LTRIM(RTRIM(TO_CHAR(ROUND(n_LowerMoney, 2),
                                    9999999999999.99)));
  IF SUBSTR(v_LowerStr, 1, 1) = # THEN
    RETURN 转换金额超过计算范围(计算范围为 :计算范围为 :0 - 9,
                                999,
                                999,
                                999,
                                999.99);
  END IF;

  FOR I IN 1 .. LENGTH(v_LowerStr) LOOP
    SELECT DECODE(SUBSTR(v_LowerStr,LENGTH(v_LowerStr) - I + 1,1),
            .,元,0,零, 1,壹, 2,贰, 3,叁, 4,肆,
            5,伍, 6,陆, 7,柒, 8,捌, 9,玖)||
            DECODE(I,1,分,2,角,3,NULL,4,NULL,5,拾,6,佰,7,仟,8,万,
            9,拾,10,佰,11,仟,12,亿,13,拾,14,佰,15,仟,16,万,NULL)
            INTO v_UpperPart FROM DUAL;
 
    v_UpperStr := v_UpperPart || v_UpperStr;
  END LOOP;

  IF v_TransType = 0 then
    v_UpperStr := REPLACE(v_UpperStr, 零拾, 零);
    v_UpperStr := REPLACE(v_UpperStr, 零佰, 零);
    v_UpperStr := REPLACE(v_UpperStr, 零仟, 零);
    v_UpperStr := REPLACE(v_UpperStr, 零零零, 零);
    v_UpperStr := REPLACE(v_UpperStr, 零零, 零);
    v_UpperStr := REPLACE(v_UpperStr, 零角零分, 整);
    v_UpperStr := REPLACE(v_UpperStr, 零分, 整);
    v_UpperStr := REPLACE(v_UpperStr, 零角, 零);
    v_UpperStr := REPLACE(v_UpperStr, 零亿零万零元, 亿元);
    v_UpperStr := REPLACE(v_UpperStr, 亿零万零元, 亿元);
    v_UpperStr := REPLACE(v_UpperStr, 零亿零万, 亿);
    v_UpperStr := REPLACE(v_UpperStr, 零万零元, 万元);
    v_UpperStr := REPLACE(v_UpperStr, 万零元, 万元);
    v_UpperStr := REPLACE(v_UpperStr, 零亿, 亿);
    v_UpperStr := REPLACE(v_UpperStr, 零万, 万);
    v_UpperStr := REPLACE(v_UpperStr, 零元, 元);
    v_UpperStr := REPLACE(v_UpperStr, 零零, 零);
  END IF;

  -- 对壹元以下的金额的处理
  v_UpperStr := LTRIM(LTRIM(LTRIM(LTRIM(v_UpperStr, 元), 零), 角), 分);
  IF SUBSTR(v_UpperStr, 1, 1) = 整 THEN
    v_UpperStr := 零元整;
  END IF;

  RETURN v_UpperStr;

EXCEPTION
  WHEN OTHERS THEN
    RETURN 发生错误 :|| SQLCODE || --||SQLERRM;
END convert_money;

---

---

--