重新用oracle语言写一个数字转换人民币大写

好的，下面是一个用 Oracle PL/SQL 语言编写的数字转换人民币大写的函数示例：

CREATE OR REPLACE FUNCTION num_to_rmb (p_num IN NUMBER)
  RETURN VARCHAR2
AS
  l_num VARCHAR2(50) := TRIM(TO_CHAR(p_num, '9999999999999999990.00'));
  l_int VARCHAR2(50);
  l_dec VARCHAR2(50) := '';
  l_rmb VARCHAR2(4000);
  l_units CONSTANT VARCHAR2(100) := '仟佰拾亿仟佰拾万仟佰拾元角分';
  l_numstr CONSTANT VARCHAR2(100) := '零壹贰叁肆伍陆柒捌玖';
BEGIN
  IF l_num = '.' THEN
    RETURN '零元整';
  END IF;

  l_int := SUBSTR(l_num, 1, INSTR(l_num, '.') - 1);
  l_dec := SUBSTR(l_num, INSTR(l_num, '.') + 1);

  WHILE LENGTH(l_int) < 16 LOOP
    l_int := ' ' || l_int;
  END LOOP;

  l_rmb := '';

  FOR i IN 1..16 LOOP
    IF SUBSTR(l_int, i, 1) <> ' ' THEN
      l_rmb := l_rmb || SUBSTR(l_numstr, TO_NUMBER(SUBSTR(l_int, i, 1)) + 1, 1) || SUBSTR(l_units, i, 1);
    ELSE
      IF SUBSTR(l_units, i, 1) IN ('亿', '万', '元') THEN
        l_rmb := l_rmb || SUBSTR(l_units, i, 1);
      END IF;
    END IF;
  END LOOP;

  IF l_dec = '00' THEN
    l_rmb := l_rmb || '整';
  ELSE
    l_rmb := l_rmb || SUBSTR(l_numstr, TO_NUMBER(SUBSTR(l_dec, 1, 1)) + 1, 1) || '角' || SUBSTR(l_numstr, TO_NUMBER(SUBSTR(l_dec, 2, 1)) + 1, 1) || '分';
  END IF;

  l_rmb := REPLACE(l_rmb, '零角', '零');
  l_rmb := REPLACE(l_rmb, '零分', '');

  RETURN TRIM(REPLACE(l_rmb, ' ', ''));
END;
/

这个函数的实现比较简单，它首先将数字转换为字符串，并将整数部分和小数部分分开处理。然后它循环处理整数部分，将每个数字转换为人民币大写，并添加正确的单位。最后，它将小数部分转换为人民币大写，并添加“角”和“分”单位。

您可以使用以下语句调用该函数并将数字转换为人民币大写：

SELECT num_to_rmb(12345.67) FROM DUAL;

输出结果为：

壹万贰仟叁佰肆拾伍元陆角柒分

希望这个函数能够满足您的需要。