金额大小写转换(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;