度量快速开发平台-专业、快速的软件定制快开平台

标题: oracle 中将小写人民币转换成大写人民币的函数示例。 [打印本页]

作者: 王爱东 时间: 2020-5-8 17:43
标题: oracle 中将小写人民币转换成大写人民币的函数示例。
在oracle数据库中，可以实现把人民币小写转换成大写的效果，这样在打印中经常用到。度量快速开发平台中本身也是提供了转化人民币的函数，这里只是介绍在oracle中写函数来实现。

CREATE OR REPLACE FUNCTION F_DELIT_UPPER_NUMBER
(
  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 F_DELIT_UPPER_YEAR(TO_CHAR(SYSDATE,'YYYY')) || '年' ||
*  F_DELIT_UPPER_NUMBER(TO_CHAR(SYSDATE,'MM'),'2','2') || '月' ||
*  F_DELIT_UPPER_NUMBER(TO_CHAR(SYSDATE,'DD'),'2','2') || '日'
*  FROM DUAL ;
*--货币例子(截取小数点后两位,四舍五入)
*  SELECT F_DELIT_UPPER_NUMBER(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;

作者: 王爱东 时间: 2020-5-8 17:46
示例效果：

作者: 王爱东 时间: 2020-5-8 17:46
这个使用很不错的。

作者: 张兴康 时间: 2020-5-8 18:07
之前了解过，挺复杂的一个东东

作者: 万望 时间: 2020-5-8 21:54
看是简单的一个功能，实现起来还是听复杂的，好东西，多多学习

作者: 张军勇 时间: 2020-5-9 09:09
还是用平台转换简单。

欢迎光临度量快速开发平台-专业、快速的软件定制快开平台 (http://p.delit.cn/)