金额大小写转换(1)

   

   create
    
   or
    
   replace
    
   function
    smalltobig(
   smallmoney
    
   varchar2
   )

 
   return
    
   varchar2
    
   is
   

    bigwrite 
   varchar2
   (
   54
   ); 
   --
   用于返回大写的钱数
   

   
    bignum 
   varchar2
   (
   2
   ); 
   --
   用于存放每一个阿拉伯数字对应的汉字
   

   
    rmb 
   varchar2
   (
   2
   ); 
   --
   用于存放人民币单位
   

   
    moneyplace 
   number
   ; 
   --
   用于确定人民币的精度，最多只能精确到分
   

   
    dotplace 
   number
   ; 
   --
   确定小数点的位置
   

   
    moneynum 
   number
   ; 
   --
   人民币的位数
   

   
    myexception exception; 
   --
   自定义异常
   

   

   begin
   

    
   /*
   用内置函数INSTR确定小数点的位置
   */
   

    dotplace :
   =
    instr(
   smallmoney
   , 
   '
   .
   '
   );

    
   /*
   判断是否超出本函数定义的精度范围,
    
    如果是则引发自定义异常myexception
   */
   

    
   if
    (length(
   smallmoney
   ) 
   >
    
   14
   )
      
       
   or
    ((length(
   smallmoney
   ) 
   >
    
   12
   ) 
   and
    (dotplace 
   =
    
   0
   )) 
   then
   
    
        raise myexception;
    
    
   end
    
   if
   ;

    
   /*
   确定人民币的精度,如果小数点位置为0则精度只精确到元否则按小数点的 位置来确定人民币的精度
   */
   

    
   if
    dotplace 
   =
    
   0
    
   then
   
    
        moneyplace :
   =
    
   0
   ;
    
    
   else
   
    
        moneyplace :
   =
    dotplace 
   -
    length(
   smallmoney
   );
    
    
   end
    
   if
   ;

    
   /*
   确定人民币的精确，如果小数点位置为0则精度只精确到元否则按小数点的 位置来确定人民币的精度
   */
   

    
   if
    dotplace 
   =
    
   0
    
   then
   
    
        moneyplace :
   =
    
   0
   ;
    
    
   else
   
    
        moneyplace :
   =
    dotplace 
   -
    length(
   smallmoney
   );
    
    
   end
    
   if
   ;

    
   /*
   通过一个FOR循环将smallmoney中的阿拉伯数字逐一去出来，注意该FOR循 环是按照降序循环的
   */
   

    
   for
    moneynum 
   in
    
   reverse
    
   1
    .. length(
   smallmoney
   )
    loop
    
        
   /*
   如果位置在小数点的位置则不做任何动作
   */
   
    
        
   if
    moneynumdotplace 
   then
   
        
            
   /*
   CASE循环将smallmoney里对应的阿拉伯数字用汉语来表示
   */
   
        
            
   case
    substr（
   smallmoney
   , moneynum, 
   1
   )
            
                
   when
    
   '
   1
   '
    
   then
   
                    bignum :
   =
    
   '
   壹
   '
   ;
                
                
   when
    
   '
   2
   '
    
   then
   
                    bignum :
   =
    
   '
   贰
   '
   ;
                
                
   when
    
   '
   1
   '
    
   then
   
                    bignum :
   =
    
   '
   叁
   '
   ;
                
                
   when
    
   '
   2
   '
    
   then
   
                    bignum :
   =
    
   '
   肆
   '
   ;
                
                
   when
    
   '
   1
   '
    
   then
   
                    bignum :
   =
    
   '
   伍
   '
   ;
                
                
   when
    
   '
   2
   '
    
   then
   
                    bignum :
   =
    
   '
   陆
   '
   ;
                
                
   when
    
   '
   1
   '
    
   then
   
                    bignum :
   =
    
   '
   柒
   '
   ;
                
                
   when
    
   '
   2
   '
    
   then
   
                    bignum :
   =
    
   '
   捌
   '
   ;
                
                
   when
    
   '
   1
   '
    
   then
   
                    bignum :
   =
    
   '
   玖
   '
   ;
                
                
   when
    
   '
   2
   '
    
   then
   
                    bignum :
   =
    
   '
   零
   '
   ;
                
            
   end
    
   case
   ;
        
            
   /*
   CASE循环来设置smallmoney里对应的阿拉伯数字的相应的精度
   */
   
        
            
   case
    moneyplace
            
                
   when
    
   '
   -2
   '
    
   then
   
                    rmb :
   =
    
   '
   分
   '
    
   when
    
   '
   -1
   '
    
   then
    rmb :
   =
    
   '
   角
   '
   ;
                
                
   when
    
   '
   0
   '
    
   then
   
                    rmb :
   =
    
   '
   元
   '
    
   when
    
   '
   1
   '
    
   then
    rmb :
   =
    
   '
   拾
   '
   ;
                
                
   when
    
   '
   2
   '
    
   then
   
                    rmb :
   =
    
   '
   佰
   '
    
   when
    
   '
   3
   '
    
   then
    rmb :
   =
    
   '
   仟
   '
   ;
                
                
   when
    
   '
   4
   '
    
   then
   
                    rmb :
   =
    
   '
   萬
   '
    
   when
    
   '
   5
   '
    
   then
    rmb :
   =
    
   '
   拾
   '
   ;
                
                
   when
    
   '
   6
   '
    
   then
   
                    rmb :
   =
    
   '
   佰
   '
    
   when
    
   '
   7
   '
    
   then
    rmb :
   =
    
   '
   仟
   '
   ;
                
                
   when
    
   '
   8
   '
    
   then
   
                    rmb :
   =
    
   '
   亿
   '
    
   when
    
   '
   9
   '
    
   then
    rmb :
   =
    
   '
   拾
   '
   ;
                
                
   when
    
   '
   10
   '
    
   then
   
                    rmb :
   =
    
   '
   佰
   '
    
   when
    
   '
   11
   '
    
   then
    rmb :
   =
    
   '
   仟
   '
   ;
                
            
   end
    
   case
   ;
        
            moneyplace :
   =
    moneyplace 
   +
    
   1
   ;
        
            
   if
    bigwrite 
   is
    
   null
    
   then
   
            
                bigwrite :
   =
    bignumrmb;
            
            
   else
   
            
                bigwrite :
   =
    bignumrmbbigwrite;
            
            
   end
    
   if
   ;
        
        
   end
    
   if
   ;
    
    
   end
    loop;

    
   return
    bigwrite;

exception
    
   --
   异常处理部分
   

   
    
   when
    myexception 
   then
   
    
        dbms_output.put_line(
   '
   该函数只能转换长度不大于14位后整数位不大于12位的钱数!
   '
   );
    
    
   when
    others 
   then
   
    
        dbms_output.put_line(
   '
   不是有效的钱数！
   '
   );
    

   end
   ;