金额大小写转换(4)

create   or   replace   function  l2u  --  小写金额转换成大写
(n_lowermoney  in   number )  return   varchar2   as
    v_lowerstr   varchar2 ( 200 );  --  小写金额
    v_upperpart  varchar2 ( 200 );
    v_upperstr   varchar2 ( 200 );  --  大写金额
begin
    v_lowerstr : =   ltrim ( rtrim (to_char( round (n_lowermoney,  2 ),
                                       ' 9999999999999.99 ' )));
     if  substr(v_lowerstr,  1 ,  1 )  =   ' # '   then
         return   ' 转换金额超过计算范围(计算范围为:计算范围为: 0 - 9,999,999,999,999.99) ' ;
     end   if ;
     for  i  in   1  .. length(v_lowerstr)
    loop
         select  decode(substr(v_lowerstr, length(v_lowerstr)  -  i  +   1 ,  1 ),
                       ' . ' ,
                       ' 元 ' ,
                       ' 0 ' ,
                       ' 零 ' ,
                       ' 1 ' ,
                       ' 壹 ' ,
                       ' 2 ' ,
                       ' 贰 ' ,
                       ' 3 ' ,
                       ' 叁 ' ,
                       ' 4 ' ,
                       ' 肆 ' ,
                       ' 5 ' ,
                       ' 伍 ' ,
                       ' 6 ' ,
                       ' 陆 ' ,
                       ' 7 ' ,
                       ' 柒 ' ,
                       ' 8 ' ,
                       ' 捌 ' ,
                       ' 9 ' ,
                       ' 玖 ' )  ||  decode(i,
                                      1 ,
                                      ' 分 ' ,
                                      2 ,
                                      ' 角 ' ,
                                      3 ,
                                      null ,
                                      4 ,
                                      null ,
                                      5 ,
                                      ' 拾 ' ,
                                      6 ,
                                      ' 佰 ' ,
                                      7 ,
                                      ' 仟 ' ,
                                      8 ,
                                      ' 万 ' ,
                                      9 ,
                                      ' 拾 ' ,
                                      10 ,
                                      ' 佰 ' ,
                                      11 ,
                                      ' 仟 ' ,
                                      12 ,
                                      ' 亿 ' ,
                                      13 ,
                                      ' 拾 ' ,
                                      14 ,
                                      ' 佰 ' ,
                                      15 ,
                                      ' 仟 ' ,
                                      16 ,
                                      ' 万 ' ,
                                      null )
           into  v_upperpart
           from  dual;
        v_upperstr : =  v_upperpart  ||  v_upperstr;
     end  loop;

    v_upperstr : =   replace (v_upperstr,  ' 零拾 ' ,  ' 零 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零佰 ' ,  ' 零 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零仟 ' ,  ' 零 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零零零 ' ,  ' 零 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零零 ' ,  ' 零 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零角零分 ' ,  ' 整 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零分 ' ,  ' 整 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零角 ' ,  ' 零 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零亿零万零元 ' ,  ' 亿元 ' );
    v_upperstr : =   replace (v_upperstr,  ' 亿零万零元 ' ,  ' 亿元 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零亿零万 ' ,  ' 亿 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零万零元 ' ,  ' 万元 ' );
    v_upperstr : =   replace (v_upperstr,  ' 万零元 ' ,  ' 万元 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零亿 ' ,  ' 亿 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零万 ' ,  ' 万 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零元 ' ,  ' 元 ' );
    v_upperstr : =   replace (v_upperstr,  ' 零零 ' ,  ' 零 ' );

     --  对壹元以下的金额的处理
    v_upperstr : =   ltrim ( ltrim ( ltrim ( ltrim (v_upperstr,  ' 元 ' ),  ' 零 ' ),  ' 角 ' ),
                         ' 分 ' );
     if  substr(v_upperstr,  1 ,  1 )  =   ' 整 '   then
        v_upperstr : =   ' 零元整 ' ;
     end   if ;

     return  v_upperstr;
exception
     when  others  then
         return   ' 发生错误:  '   ||  sqlcode  ||   ' -- '   ||  sqlerrm;
end  l2u;

转载于:https://www.cnblogs.com/benio/archive/2010/12/31/1923254.html