大家好，我是考100分的小小码 ，祝大家学习进步，加薪顺利呀。今天说一说Oracle数字金额转为汉字展示「终于解决」,希望您对编程的造诣更进一步.
![Oracle数字金额转为汉字展示[数据库教程]](/www.yht7.com/upload/image/images/imgsql/5.jpg "Oracle数字金额转为汉字展示「终于解决」插图")
CREATE OR REPLACE FUNCTION “F_UPPER_MONEY_NEW”(I_NUM in number default null )
return nvarchar2 is
/*
处理数字金额转换为汉字表达
–情况1.保留元角分 （默认） 10240035001421.1 //壹拾万贰仟肆佰亿参仟伍佰万壹仟肆佰贰拾壹元壹角零分
–情况2.情况1上调整角分没有则不保留
–情况3.单位全保留 (包含substr中所有)
样例1 130034000600.04 壹仟参佰亿参仟肆佰万陆佰元零角肆分
*/
Result varchar2(100); –返回字符串
V_TEMNUM varchar2(100); –四舍五入到小数点后2位并去除小数点
v_str1s varchar2(36) := ‘零壹贰参肆伍陆柒捌玖‘; –数字汉字表示
v_str2s varchar2(50) := ‘分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟‘; –数字单位
V_STR_N VARCHAR2(3):=‘‘;
v_num number := 1; –计数
v_len number; –长度
v_str1 varchar2(3); –中文单数字字符
v_str2 varchar2(3); –单位
v_numround varchar2(3); —
v_errmsg varchar2(200); –错误消息
begin
— 为空返回空值
if I_NUM is null then
return null;
end if;
–格式化输入参数
IF I_NUM<0 THEN
V_STR_N:=‘负‘;
END IF;
V_TEMNUM := round(I_NUM, 2) * 100;
v_len := length(V_TEMNUM);
while 0 < v_len loop
v_numround := substr(V_TEMNUM, v_len, 1);
v_str1 := substr(v_str1s, v_numround + 1, 1);
v_str2 := substr(v_str2s, v_num, 1);
–处理特殊情况 （情况3不需要处理特殊情况）
IF v_str1 = ‘零‘ AND v_num >= 3 THEN –v_num>=3 去除支持情况2
IF V_STR2 IN (‘仟‘, ‘佰‘, ‘拾‘) THEN
IF SUBSTR(Result,1,1) IN (‘零‘,‘元‘,‘万‘,‘亿‘) THEN
v_str1 := ‘‘;
v_str2 := ‘‘;
ELSE
v_str1 := ‘零‘;
v_str2 := ‘‘;
END IF;
ELSIF V_STR2 IN (‘亿‘, ‘万‘, ‘元‘) THEN
V_STR1 := ‘‘;
END IF;
END IF;
Result := v_str1 || v_str2 || Result;
v_len := v_len – 1;
v_num := v_num + 1;
end loop;
return V_STR_N||Result;
exception
when others then
–实际应用返回根据情况调整
v_errmsg:=substr(sqlerrm,1,200);
–return ‘‘;
raise_application_error(1000,v_errmsg);
end F_UPPER_MONEY_NEW;
Oracle数字金额转为汉字展示
原文地址：https://www.cnblogs.com/ZwyBky/p/14125308.html
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
转载请注明出处: https://daima100.com/6585.html
