CREATE or replace Function Disp_dxje(THe_fyhj In Number) return varchar2 Is
/**********************************************************************
* 名称：大写金额转换函数 *
* 功能：收费打使用此函数 *
************************************************************************/
temp varchar2(16):=null; --the_fyhj字符串
temp1 varchar2(2):=null; --the_fyhj各小写字符
temp2 varchar2(2):=null; --the_fyhj各大写字符
temp3 varchar2(6):=null; --the_fyhj各大写单位
temp4 varchar2(60):=Null; --the_fyhj大写金额串
i number(2):=1;
j number(2);
pp number(2); --整数位长度
len number(2); --实际位长度
ll Number:=round(THe_fyhj,2);
Begin
if The_fyhj <0 Then
ll:=The_fyhj*(-1);
End if;
temp:=ltrim(rtrim(to_char(ll)),'0');--转成字符串，并去左边多余的零
pp:=Instr(temp,'.');
if pp>0 then
temp:=ltrim(Temp,'0'); --有小数时去掉右边多余的零
end if;
len:=length(temp);
if len>16 then --费用超限
return '费用超限';
End if;
if pp>0 then --整数位长度
pp:=pp-1;
Else
pp:=len;
End if;
for i in 1..len loop
temp1:=substr(temp,i,1); --取大写数值
if temp1='1' then
temp2:='壹';
elsif temp1='2' then
temp2:='贰';
elsif temp1='3' then
temp2:='叁';
elsif temp1='4' then
temp2:='肆';
elsif temp1='5' then
temp2:='伍';
elsif temp1='6' then
temp2:='陆';
elsif temp1='7' then
temp2:='柒';
elsif temp1='8' then
temp2:='捌';
elsif temp1='9' then
temp2:='玖';
elsif temp1='0' then
temp2:='零';
else
temp2:=null;
end if;
j:=pp+1-i;
If j=13 then --取大写单位
temp3:='万'; --亿级
elsif j=12 then
temp3:='仟'; --亿级
elsif j=11 then
temp3:='佰'; --亿级
elsif j=10 then
temp3:='拾'; --亿级
elsif j=9 then
temp3:='亿';
elsif j=8 then
temp3:='仟'; --万级
elsif j=7 then
temp3:='佰'; --万级
elsif j=6 then
temp3:='拾'; --万级
elsif j=5 then
temp3:='万';
elsif j=4 then
temp3:='仟';
elsif j=3 then
temp3:='佰';
elsif j=2 then
temp3:='拾';
elsif j=1 then
temp3:='元';
elsif j=-1 then
temp3:='角';
elsif j=-2 then
temp3:='分';
else
temp3:=null;
End if;
If j<-2 Then
temp2:=null;
End If;
If temp2='零' and temp3 Not In('亿','万','元') then --取消无效的单位
temp3:=null;
End if;
temp4:=temp4||temp2||temp3;
temp4:=replace(Temp4,'零零','零'); --取消无效的零
end loop;
--取消无效的零
temp4:=replace(Temp4,'零万','万');
temp4:=replace(Temp4,'零亿','亿');
temp4:=replace(Temp4,'亿万','亿');
If ll!=0 then
temp4:=replace(temp4,'零元','元');
End if;
if the_fyhj>=0 then
if (ll*10-floor(ll*10))=0 then --整数费用
temp4:='币'||temp4||'整';
else --小数费用
temp4:='币'||temp4;
end if;
Else
if (ll*10-floor(ll*10))=0 then
temp4:='币负'||temp4||'整';
else
temp4:='币负'||temp4;
end if;
End if;
return temp4;
Exception
When Others Then
return sqlerrm;
End Disp_dxje;
declare
dxje varchar2(100);
begin
dxje:=disp_dxje(-132423423503.333);
dbms_output.put_line(dxje);
end;下载本文
