oracle 金额大写转换

最新推荐文章于 2021-04-09 06:02:12 发布

hjb368

最新推荐文章于 2021-04-09 06:02:12 发布

阅读量1.5k

点赞数

分类专栏： SQL 文章标签： oracle 金额大写

本文链接：https://blog.csdn.net/hjb368/article/details/51815633

版权

这是一个Oracle函数，用于将输入的数字转换为大写的金额表示。函数遍历数字字符串，根据不同的位置和数值，结合预定义的字符映射进行转换，并处理进位和零的特殊表示。最终返回转换后的金额大写字符串。

摘要由CSDN通过智能技术生成

FUNCTION convert_money(input_number NUMBER) RETURN VARCHAR2 IS
  i     PLS_INTEGER;
  snum  VARCHAR2(20) := ltrim(REPLACE(to_char(abs(input_number), '9999999999999990.99'), '.'));
  len   PLS_INTEGER := length(snum);
  sch   VARCHAR2(30) := '零壹贰叁肆伍陆柒捌玖';
  sjin  VARCHAR2(60) := '分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟';
  srmb  VARCHAR2(200) := '';
  num   PLS_INTEGER;
  s_num PLS_INTEGER := 0; --'0'起始位置
  e_num PLS_INTEGER := 0; --'0'结束位置
BEGIN
  IF input_number IS NULL THEN
    RETURN NULL;
  END IF;
  FOR i IN 1 .. len LOOP
    num := to_number(substr(snum, i, 1));
    IF num <> 0 THEN
      --非'0'时处理：
      IF s_num = 0 THEN
        srmb := srmb || substr(sch, num + 1, 1) || substr(sjin, len - i + 1, 1); --前面字符非'0', 正常联接...
      ELSE
        srmb := srmb || --否则：
                CASE
                  WHEN s_num = e_num THE