第章 开发子程序和包上机.docVIP

第5章 上机 第 PAGE 17 页 共 NUMPAGES 17 页 上机5 开发子程序和包 上机内容 过程 函数 程序包 上机目标 掌握过程的创建与使用 掌握函数的创建与使用 掌握包的创建与使用 阶段1 指导部分 训练内容 创建并使用函数 创建并使用过程 需求说明 在应用程序中，财务处理程序经常需要将数字转换成人民币的大写形式。例如，123456.78经转换后大写为“壹拾贰万叁仟肆佰伍拾陆元柒角捌分”。要求创建一个函数，实现将数字转换成人民币大写的功能。 实现思路 （1）创建一个函数，命名为fun_change_rmb，该函数必须提供一个IN参数，用于接受用户输入的数字人民币。 （2）该函数必须返回转换后的人民币大写，返回值类型为VARCHAR2字符串类型。 （3）创建fun_change_rmb函数的完整代码。 CREATE OR REPLACE FUNCTION num2rmb(je NUMBER) RETURN VARCHAR2 IS result varchar2(100); i pls_integer; snum varchar2(20) := ltrim(replace(to_char(abs(je), 9999999999999990.99), .)); len pls_integer := length(snum); sch varchar2(20) := 零壹贰叁肆伍陆柒捌玖; sjin varchar2(50) := 分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟; srmb varchar2(100):= ; num pls_integer; jin varchar(2); s_num pls_integer := 0; --0起始位置 e_num pls_integer := 0; --0结束位置 begin 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 then --前面只有一个0 case s_num when 7 then 万 --只处理进位 when 11 then 亿 when 15 then 万 end when e_num 12 then --否则(多个0处理) case when s_num 7 then --万以内... when s_num 11 then case when e_num 8 and s_num 10 then 万 end when s_num 15 then case when e_num 12 then 亿 end else 万亿 end when e_num 16 and s_num 14 then 万 end|| case when s_num 3 and e_num 3 then 圆零 when e_num = 3 then 圆 when e_num not in (7, 11, 15) or s_num - e_num 2 then 零 end; srmb := srmb||substr(sch, num + 1, 1)||substr(sjin, len - i + 1, 1); end if; s_num := 0; e_num := 0; else if s_num = 0 then --当s_num=0时0串起始 s_num := len - i + 1; --记录开始 e_num := s_num; else e_num := len - i + 1; end if; end if; end loop; if s_num 0 then --此时以0结尾 srmb := srmb|| case when s_num = len then 零圆整 --全0串，加... when s_num = 1 or s_num = 2 then 整 --分(1)，角(2)后加... when s_num 7 or s_num = 10 then 圆整 when s_num 11 then 万圆整 when s_num 15 then 亿圆整 else 万亿圆整 end; else srmb := srmb||整; --不以0结尾，加... end if; if je 0 then srmb:=负||srmb; end