实现阿拉伯数字变成中文大写

最新推荐文章于 2020-11-22 15:54:52 发布

zuixinyan

最新推荐文章于 2020-11-22 15:54:52 发布

阅读量861

点赞数

CC 4.0 BY-SA版权

分类专栏： PLSQL开发

本文链接：https://blog.youkuaiyun.com/zuixinyan/article/details/20305367

PLSQL开发专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个用于将数值金额转换为中文大写的PLSQL函数。该函数能够处理包含整数部分和小数部分的金额，并将其转换为符合中文会计习惯的大写形式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

CREATE OR REPLACE FUNCTION printMoneylnZh(money number) RETURN VARCHAR2 IS
TYPE type_varchar2 is table of VARCHAR2(500);
m_string type_varchar2 := type_varchar2('分','角','圆','拾','佰','仟','','拾','佰','仟','','拾','佰','仟');
n_string type_varchar2 := type_varchar2('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');
v_num NUMBER := 0;
f_money NUMBER;
int_money NUMBER;
money_length NUMBER;
f_money_length NUMBER;
money_chinese varchar2(10000) default null;
type n_table is table of NUMBER index by binary_integer;
n_money n_table;
BEGIN
select (money - floor(money))*100, trunc(money)
INTO f_money, int_money
from dual;
money_length := length(int_money);
select length(money) - money_length - 1 into f_money_length from dual;
IF f_money = 0 THEN
FOR i in reverse 1 .. money_length loop
v_num := v_num + 1;
SELECT trunc(int_money / power(10,i - 1), 0)
INTO n_money(v_num)
FROM dual;
IF n_money(v_num) = 0 THEN
IF substr(money_chinese, length(money_chinese), 1) != '零' THEN
money_chinese := money_chinese || n_string(n_money(v_num) + 1);
END IF;
else
money_chinese := money_chinese || n_string(n_money(v_num) + 1) ||
m_string(2 + i);
end if;
if i=9 then
money_chinese := rtrim(money_chinese, '零');
money_chinese := money_chinese ||'亿';
elsif i=5 then
money_chinese := rtrim(money_chinese, '零');
IF substr(money_chinese, length(money_chinese), 1) != '亿' THEN
money_chinese := money_chinese ||'万';
end if;
end if;
int_money := int_money - power(10, i - 1) * n_money(v_num);
end loop;
money_chinese := rtrim(money_chinese, '零') || '整';
dbms_output.put_line(money_chinese);
else
FOR i in reverse 1 .. money_length loop
v_num := v_num + 1;
SELECT trunc(int_money / power(10, i - 1), 0)
INTO n_money(v_num)
FROM dual;
IF n_money(v_num) = 0 THEN
IF substr(money_chinese, length(money_chinese), 1) != '零' THEN
money_chinese := money_chinese || n_string(n_money(v_num) + 1);
END IF;
else
money_chinese := money_chinese || n_string(n_money(v_num) + 1) ||
m_string(2 + i);
end if;
if i=9 then
money_chinese := rtrim(money_chinese, '零');
money_chinese := money_chinese ||'亿';
elsif i=5 then
money_chinese := rtrim(money_chinese, '零');
IF substr(money_chinese, length(money_chinese), 1) != '亿' THEN
money_chinese := money_chinese ||'万';
end if;
end if;
int_money := int_money - power(10, i - 1) * n_money(v_num);
end loop;
if f_money<10 then
money_chinese:=money_chinese||n_string(f_money+1)||'分';
else
if mod(f_money,10)=0 then
money_chinese:=money_chinese||n_string(f_money/10+1)||'角';
else
v_num:=0;
for i in reverse 1..f_money_length loop
v_num:=v_num+1;
SELECT trunc(f_money/power(10,i-1),0)INTO n_money(v_num) from dual;
money_chinese:=money_chinese||n_string(n_money(v_num)+1)||m_string(i);
f_money:=f_money-power(10,i-1)*n_money(v_num);
end loop;
end if;
end if;
end if;
RETURN money_chinese;
END;