数字变汉字大写金额(转)

create or replace function f_get_chinesenum(ai_input number)
  return varchar2 as
  rv     varchar2(4000);
  tmpstr varchar(4000);
  m      varchar(4000);
  k      varchar(4000);
  i      numeric(38, 2);
  j      int;
  lastj  int;
  lastv  varchar(10);
  lastf  varchar(10);
  laste  varchar(10);
  lastve varchar(10);
begin
  if nvl(ai_input, 0) = 0 then
    return '零元整';
  end if;
  i      := ai_input;
  tmpstr := '零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿拾佰仟';
  k      := '';
  m      := to_char(i * 100);
  j      := length(m);
  lastve := '';
  lastv  := '';
  while j >= 1 loop
    lastf := substr(tmpstr,
                    to_number(substr(m, length(m) - j + 1, 1)) + 1,
                    1);
    laste := substr(tmpstr, 10 + j, 1);
    if lastf <> '零' then
      if lastv = '零' then
        if (lastj >= 7 and j <= 7) or (lastj >= 11 and j <= 11) or
           (lastj >= 3 and j <= 2) then
          if j <= 2 and lastj <= 3 then
            k := k || lastve || lastf || laste;
          else
            k := k || lastve || lastv || lastf || laste;
          end if;
        else
          k := k || lastv || lastf || laste;
        end if;
      else
        k := k || lastf || laste;
      end if;
      lastj  := j;
      lastve := '';
   
    elsif lastf = '零' then
      if lastj > 11 then
        lastve := '亿';
      end if;
      if lastj > 7 and lastj < 10 then
        lastve := '万';
      end if;
      if (lastj > 3) and (lastj < 6) then
        lastve := '元';
      end if;
      if lastv <> '零' then
        lastj := j;
      end if;
    end if;
    lastv := lastf;
    j     := j - 1;
  end loop;
  if lastj >= 3 then
    k := k || '元';
  end if;
  if lastj >= 2 then
    k := k || '整';
  end if;
  rv := k;
  return rv;
end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/559237/viewspace-609199/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/559237/viewspace-609199/