oracle 将钱转换万元单位,oracle 金额单位转换

FUNCTION P_GET_AMONT(P_AMOUNT NUMBER) return VARCHAR2 is

L_AMOUNT VARCHAR2(50); --定义返回金额

L_LONG NUMBER;--输入数据长度

L_MOTH NUMBER;--获取截取的数

L_CHAR VARCHAR2(50);--转换成大写

L_www varchar2(50);--位数

begin

--判断是否输入金额

if P_AMOUNT is null then

L_AMOUNT := '请输入金额!!!';

else

--获取输入数据长度

select length(P_AMOUNT) into L_LONG from dual;

--循环获取

for i in 1..L_LONG loop

--获取截取数

select substr(P_AMOUNT,i,1) into L_MOTH from dual;

if L_MOTH = 0 then

L_CHAR := '零';

elsif L_MOTH = 1 then

L_CHAR := '壹';

elsif L_MOTH = 2 then

L_CHAR := '贰';

elsif L_MOTH = 3 then

L_CHAR := '叁';

elsif L_MOTH = 4 then

L_CHAR := '肆';

elsif L_MOTH = 5 then

L_CHAR := '伍';

elsif L_MOTH = 6 then

L_CHAR := '陆';

elsif L_MOTH = 7 then

L_CHAR := '柒';

elsif L_MOTH = 8 then

L_CHAR := '捌';

elsif L_MOTH = 9 then

L_CHAR := '玖';

end if;

L_AMOUNT := L_AMOUNT||L_CHAR;

end loop;

end if;

return L_AMOUNT;