金额大小写转换(2)

function  get_upper_currency(vrmb  char )

  return   varchar2

  is

    rmbwodecimal  varchar2 ( 20 );

    result  varchar2 ( 100 );

    cunumber  varchar2 ( 36 );

    currency  varchar2 ( 52 );

    rmblen  number ( 2 );

    vrmb1  number ;

begin

     if  vrmb  is   null   then
    
         return ( ' 没有金额 ' );
    
     else
    
        vrmb1 : =   round (vrmb,  2 )  *   100 ;
    
        cunumber : =   ' 零壹贰叁肆伍陆柒捌玖 ' ;
    
        currency : =   ' 分角元拾佰仟万拾佰仟亿拾佰仟 ' ;
    
        rmbwodecimal : =  translate(vrmb1,  ' 1234567890. - ' ,  ' 1234567890 ' );
    
        rmblen : =  length(rmbwodecimal);
    
         for  i  in   1  .. length(rmbwodecimal)
        loop
        
            result : =  resultsubstr(cunumber,
                                   to_number(substr(rmbwodecimal, i,  1 ))  +   1 ,
                                    1 )
                      substr(currency, to_number(rmblen),  1 );
        
            rmblen : =  rmblen  -   1 ;
        
         end  loop;
    
        result : =   ' ￥ '  result  ' 整 ' ;
    
         return (result);
    
     end   if ;

end ;