详解Oracle中数字与大写交换

您当前所在位置：首页 → 数据库 → Oracle → 详解Oracle中数字与大写交换

详解Oracle中数字与大写交换 时间：2015/6/28来源：IT猫扑网作者：网管联盟我要评论(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) :=

相关阅读

文章评论

查看所有0条评论>>