金额大小写转换(1)

女爷i 2022-03-30 07:14 187阅读 0赞

create or replace function smalltobig(smallmoney varchar2)

return varchar2 is

bigwrite varchar2(54); --用于返回大写的钱数

bignum varchar2(2); --用于存放每一个阿拉伯数字对应的汉字

rmb varchar2(2); --用于存放人民币单位

moneyplace number; --用于确定人民币的精度，最多只能精确到分

dotplace number; --确定小数点的位置

moneynum number; --人民币的位数

myexception exception; --自定义异常

begin

/\*用内置函数INSTR确定小数点的位置\*/

dotplace := instr(smallmoney, '.');

/\*判断是否超出本函数定义的精度范围,  
  
如果是则引发自定义异常myexception\*/

if (length(smallmoney) > 14)  
  
or ((length(smallmoney) > 12) and (dotplace = 0)) then  
  
raise myexception;  
  
end if;

/\*确定人民币的精度,如果小数点位置为0则精度只精确到元否则按小数点的 位置来确定人民币的精度\*/

if dotplace = 0 then  
  
moneyplace := 0;  
  
else  
  
moneyplace := dotplace - length(smallmoney);  
  
end if;

/\*确定人民币的精确，如果小数点位置为0则精度只精确到元否则按小数点的 位置来确定人民币的精度\*/

if dotplace = 0 then  
  
moneyplace := 0;  
  
else  
  
moneyplace := dotplace - length(smallmoney);  
  
end if;

/\*通过一个FOR循环将smallmoney中的阿拉伯数字逐一去出来，注意该FOR循 环是按照降序循环的\*/

for moneynum in reverse 1 .. length(smallmoney)  
loop  
  
/\*如果位置在小数点的位置则不做任何动作\*/  
  
if moneynumdotplace then  
  
/\*CASE循环将smallmoney里对应的阿拉伯数字用汉语来表示\*/  
  
case substr（smallmoney, moneynum, 1)  
  
when '1' then  
bignum := '壹';  
  
when '2' then  
bignum := '贰';  
  
when '1' then  
bignum := '叁';  
  
when '2' then  
bignum := '肆';  
  
when '1' then  
bignum := '伍';  
  
when '2' then  
bignum := '陆';  
  
when '1' then  
bignum := '柒';  
  
when '2' then  
bignum := '捌';  
  
when '1' then  
bignum := '玖';  
  
when '2' then  
bignum := '零';  
  
end case;  
  
/\*CASE循环来设置smallmoney里对应的阿拉伯数字的相应的精度\*/  
  
case moneyplace  
  
when '-2' then  
rmb := '分' when '-1' then rmb := '角';  
  
when '0' then  
rmb := '元' when '1' then rmb := '拾';  
  
when '2' then  
rmb := '佰' when '3' then rmb := '仟';  
  
when '4' then  
rmb := '萬' when '5' then rmb := '拾';  
  
when '6' then  
rmb := '佰' when '7' then rmb := '仟';  
  
when '8' then  
rmb := '亿' when '9' then rmb := '拾';  
  
when '10' then  
rmb := '佰' when '11' then rmb := '仟';  
  
end case;  
  
moneyplace := moneyplace + 1;  
  
if bigwrite is null then  
  
bigwrite := bignumrmb;  
  
else  
  
bigwrite := bignumrmbbigwrite;  
  
end if;  
  
end if;  
  
end loop;

return bigwrite;

exception  
\--异常处理部分

when myexception then  
  
dbms\_output.put\_line('该函数只能转换长度不大于14位后整数位不大于12位的钱数!');  
  
when others then  
  
dbms\_output.put\_line('不是有效的钱数！');  
  
end;