详解Oracle中数字与大写交换

您当前所在位置：IT猫扑网 > 数据库 > Oracle > 详解Oracle中数字与大写交换

详解Oracle中数字与大写交换 时间：2015-06-28 00:00 来源：IT猫扑网|http://www.itmop.com/ 作者：网管联盟 我要评论(0)

对于数字大小写的转换，也是有一定中国特色的东西。但是在账务报表中，我们还是需要有这样的功能的。今天写了一个将数字金额转化为大写的函数。

功能：将任意长度的数字金额转化为大写。最低位为圆或角时，后面加&整&；为&分&时不加&整&。

说明：小数点后保留两位。超过两位的部分被截断。

代码：

PL/SQL 代码  
Create Or Replace Function Money2Chinese(Money In Number) Return Varchar2 Is 
  strYuan Varchar2(150);  
  strYuanFen    Varchar2(152);  
  numLenYuan    Number;  
  numLenYuanFen Number;  
  strRstYuan    Varchar2(600);  
  strRstFen     Varchar2(200);  
  strRst  Varchar2(800);  
  Type typeTabMapping Is Table Of Varchar2(2) Index By Binary_Integer;  
  tabNumMapping  typeTabMapping;  
  tabUnitMapping typeTabMapping;  
  numUnitIndex   Number;  
  i  Number;  
  j  Number;  
  charCurrentNum Char(1);  
Begin 
  If Money Is Null Then 
    Return Null;  
  End If;  
  strYuan := TO_CHAR(FLOOR(Money));  
  If strYuan = '0' Then 
    numLenYuan := 0;  
    strYuanFen := lpad(TO_CHAR(FLOOR(Money * 100)), 2, '0');  
  Else 
    numLenYuan := length(strYuan);  
    strYuanFen := TO_CHAR(FLOOR(Money * 100));  
  End If;  
  If strYuanFen = '0' Then 
    numLenYuanFen := 0;  
  Else 
    numLenYuanFen := length(strYuanFen);  
  End If;  
  If numLenYuan = 0 Or numLenYuanFen = 0 Then 
    strRst := '零圆整';  
    Return strRst;  
  End If;  
  tabNumMapping(0) := '零';  
  tabNumMapping(1) := '壹';  
  tabNumMapping(2) := '贰';  
  tabNumMapping(3) := '叁';  
  tabNumMapping(4) := '肆';  
  tabNumMapping(5) := '伍';  
  tabNumMapping(6) := '陆';  
  tabNumMapping(7) := '柒';  
  tabNumMapping(8) := '捌';  
  tabNumMapping(9) := 
            相关阅读
            
                                    误删Oracle数据库实例的控制文件
                        为UNIX服务器设置Oracle全文检索
                        Oracle数据库如何查找删除重复的SQL语句
                        Oracle导入导出数据库的语法
                        oracle数据库安装预环境一键处理脚本
                        oracle常用DBA命令
                                    
        
        
            文章评论
            
                
                    
                    查看所有0条评论>>
                 
                        发表评论