org拼金额大写,不知道怎么给赋值,在线等待,谢谢

大保 发布于 2012/02/29 21:03
阅读 101
收藏 0

  create or replace package body wanxuebao is
 
  function text_ceshi(ceshi number) return varchar2 is
  a varchar2(20);
  c number;
  d number;
  e varchar2(20);
  f number;
  g varchar2(20);
  begin
 select length(ceshi) into c from dual;
 
 for i  in 1..c loop
select substr(ceshi,i,1) into d from dual;
 if d=1 then
 e:='壹';
 elsif d=2 then
 e:='贰';
  elsif d=3 then
 e:='叁';
  elsif d=4 then
 e:='肆';
  elsif d=5 then
 e:='伍';
  elsif d=6 then
 e:='陆';
  elsif d=7 then
 e:='柒';
  elsif d=8 then
 e:='捌';
  elsif d=9 then
 e:='玖';
 end if;
 
   
  if f=1 then
 g:=null;
 elsif f=2 then
 g:='拾';
  elsif f=3 then
 g:='佰';
  elsif f=4 then
 g:='仟';
  elsif f=5 then
 g:='万';
  elsif f=6 then
 g:='拾';
  elsif f=7 then
 g:='佰';
  elsif f=8 then
 g:='仟';
  elsif f=9 then
 g:='亿';
 end if;
 a:=a||e||g||'  ';
 g:=g-1;
 end loop;
 return(a);
 exception
 when others then
 return(null);

以下是问题补充:

@大保:不知道怎么给F给值 (2012/02/29 21:05)
加载中
返回顶部
顶部