Oracle数据库将数字金额转换为大写汉字

Oracle：

--------------------------------------------------------

-- 数字金额转大写

--------------------------------------------------------

create or replace FUNCTION MoneyToChinese(P_NUM IN NUMBER DEFAULT NULL)

RETURN NVARCHAR2 IS

RESULT NVARCHAR2(100); --返回字符串

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

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

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

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

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

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

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

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

NUM1 NUMBER;

BEGIN

IF P_NUM IS NULL THEN

RETURN NULL;

END IF; --转换数字为null时返回null

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

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

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), '.'),

LENGTH(NUM_ROUND) + 1,

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

INTO NUM_RIGHT

FROM DUAL; --取得小数点右边的数字

SELECT CASE

WHEN LENGTH(NUM_LEFT) >= 8 THEN

TO_NUMBER(SUBSTR(TO_CHAR(NUM_LEFT), -8, 4))

ELSE

TO_NUMBER(SUBSTR(TO_CHAR(NUM_LEFT),

-LENGTH(NUM_LEFT),

LENGTH(NUM_LEFT) - 4))

END

INTO NUM1

FROM DUAL; ---取得千、百、十、万位上的数字

IF LENGTH(NUM_LEFT) > 16 THEN

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

END IF; --数字整数部分超过16位时

--采用从低至高的算法，先处理小数点右边的数字

IF LENGTH(NUM_RIGHT) = 2 THEN

IF TO_NUMBER(SUBSTR(NUM_RIGHT, 1, 1)) = 0 THEN

RESULT := '零' ||

SUBSTR(STR1, TO_NUMBER(SUBSTR(NUM_RIGHT, 2, 1)) + 1, 1) || '分';

ELSE

RESULT := SUBSTR(STR1, TO_NUMBER(SUBSTR(NUM_RIGHT, 1, 1)) + 1, 1) || '角' ||

SUBSTR(STR1, TO_NUMBER(SUBSTR(NUM_RIGHT, 2, 1)) + 1, 1) || '分';

END IF;

ELSIF LENGTH(NUM_RIGHT) = 1 THEN

RESULT := SUBSTR(STR1, TO_NUMBER(SUBSTR(NUM_RIGHT, 1, 1)) + 1, 1) || '角整';

ELSE

RESULT := '整';

END IF;

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

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

--(从低至高)

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

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

IF NUM_CURRENT > 0 THEN

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

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

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

ELSE

--当前位上数字为0时

IF NUM_COUNT = 5 THEN

IF MOD(NUM_COUNT - 1, 4) = 0 AND NUM1 <> 0 THEN

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

NUM_PRE := 0; --元、万,亿前不准加零 --当前位是元、万或亿时

END IF;

ELSE

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;

NUM_PRE := NUM_CURRENT;

END LOOP;

IF P_NUM < 0 THEN

--转换数字是负数时

RESULT := '负' || RESULT;

END IF;

RETURN RESULT;

EXCEPTION

WHEN OTHERS THEN

RAISE_APPLICATION_ERROR(-20001, '数字转换大写出现错误！' || SQLERRM);

END;

将上面函数代码在数据库中执行，直接用函数即可完成转换。

Oracle数据库将数字金额转换为大写汉字相关推荐

数字金额转换为大写人民币汉字
// 数字金额转换为大写人民币汉字convertCurrency (money) {// 汉字的数字var cnNums = ['零', '壹', '贰', '叁', '肆', '伍', '陆', ' ...
JS将数字金额转换为大写人民币汉字
转载自 qubernet 博客 JS将数字金额转换为大写人民币汉字 function convertCurrency(money) {//汉字的数字var cnNums = new Array('零' ...
【Java】将数字金额转换为大写中文金额
package com.ruoyi.test;import org.apache.commons.lang3.StringUtils;/*** @Title: ConvertUpMoney* @Des ...
js将数字金额转换为大写人民币
今天换算律师打官司金额,用到了小写金额转化为大写汉字的问题,这里把具体思路分析一下 1.首先判断输入数值正负问题, 2.其次有小数点部分需要处理,将数值每次乘以10进行拆分,乘10--%10--结果为 ...
JS实现将数字金额转换为大写人民币汉字
function convertCurrency(money) {//汉字的数字var cnNums = new Array('零', '壹', '贰', '叁', '肆', '伍', '陆', '柒 ...
oracle人民币转大写,Oracle 小写金额转换为大写
在开发EBS的合同报表打印的时候需要将小写金额转换为大写. 如下是本人自己写的转换函数. 主要思路:先获取小数点位置,在区分整数与小数点处理,根据位数和数字组合读取金额. 最后再处理特殊显示部分. / ...
java数字金额大写金额_Java实现 “ 将数字金额转为大写中文金额 ”
前言: 输入数字金额参数,运行程序得到其对应的大写中文金额:例如:输入 12.56,输出 12.56 : 壹拾贰元伍角陆分:重点来了:本人亲测有效. 奉上代码: /** * @Title: Conve ...
Java将数字金额转为大写
首先将数字金额定义为字符串类型,然后再转为int或double型:判断是否是负数或有小数点,再进行下一步处理. 代码如下: package com.study;import com.sun.deplo ...
java 金额转中文_Java实现将数字金额转为大写中文金额
前言: 输入数字金额参数,运行程序得到其对应的大写中文金额:例如:输入 12.56,输出 12.56 : 壹拾贰元伍角陆分. 代码: /** * @Title: ConvertUpMoney * @D ...
Java实现 “ 将数字金额转为大写中文金额 ”
最困难的事情就是认识自己! 个人博客,欢迎访问! 前言: 输入数字金额参数,运行程序得到其对应的大写中文金额:例如:输入 12.56,输出 12.56 : 壹拾贰元伍角陆分:重点来了:本人亲测有效. ...

Oracle数据库将数字金额转换为大写汉字

Oracle数据库将数字金额转换为大写汉字相关推荐

最新文章

热门文章