小写数字转大写

--小写数字转大写，只是单纯的将数字转换为大写了，还要加单位
create or replace function chinese(number1 number) return varchar2 is
  Result varchar2(30):=‘ ‘;
  v_chinese varchar2(25):=‘零壹贰叁肆伍陆柒捌玖‘;
  v_char varchar2(10);

begin 
  for i in 1..length(number1) loop
  select substr(v_chinese,substr(number1,i,1)+1,1) into v_char from dual;
  Result:=Result||v_char;
  end loop;
   return(Result);
end chinese;