詳解Oracle中數字與大寫交換

對於數字大小寫的轉換，也是有一定中國特色的東西。但是在賬務報表中，我們還是需要有這樣的功能的。今天寫了一個將數字金額轉化為大寫的函數。

功能：將任意長度的數字金額轉化為大寫。最低位為圓或角時，後面加“整”；為“分”時不加“整”。

說明：小數點後保留兩位。超過兩位的部分被截斷。

代碼：

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) := '玖';  
  tabUnitMapping(-2) := '分';  
  tabUnitMapping(-1) := '角';  
  tabUnitMapping(1) := '';  
  tabUnitMapping(2) := '拾';  
  tabUnitMapping(3) := '佰';  
  tabUnitMapping(4) := '仟';  
  tabUnitMapping(5) := '萬';  
  tabUnitMapping(6) := '拾';  
  tabUnitMapping(7) := '佰';  
  tabUnitMapping(8) := '仟';  
  tabUnitMapping(9) := '億';  
  For i In 1 .. nUMLenYuan Loop  
    j            := nUMLenYuan - i + 1;  
    numUnitIndex := Mod(i, 8);  
    If numUnitIndex = 0 Then 
      numUnitIndex := 8;  
    End If;  
    If numUnitIndex = 1 And i > 1 Then 
      strRstYuan := tabUnitMapping(9) || strRstYuan;  
    End If;  
    charCurrentNum := substr(strYuan, j, 1);  
    If charCurrentNum <> 0 Then 
      strRstYuan := tabNumMapping(charCurrentNum) ||  
                    tabUnitMapping(numUnitIndex) || strRstYuan;  
    Else 
      If (i = 1 Or i = 5) Then 
        If substr(strYuan, j - 3, 4) <> '0000' Then 
          strRstYuan := tabUnitMapping(numUnitIndex) || strRstYuan;  
        End If;  
      Else 
        If substr(strYuan, j + 1, 1) <> '0' Then 
          strRstYuan := tabNumMapping(charCurrentNum) || strRstYuan;  
        End If;  
      End If;  
    End If;  
  End Loop;  
  For i In -2 .. -1 Loop  
    j              := nUMLenYuan - i;  
    charCurrentNum := substr(strYuanFen, j, 1);  
    If charCurrentNum <> '0' Then 
      strRstFen := tabNumMapping(charCurrentNum) || tabUnitMapping(i) ||  
                   strRstFen;  
    End If;  
  End Loop;  
  If strRstYuan Is Not Null Then 
    strRstYuan := strRstYuan || '圓';  
  End If;  
  If strRstFen Is Null Then 
    strRstYuan := strRstYuan || '整';  
  Elsif length(strRstFen) = 2 And substr(strRstFen, 2) = '角' Then 
    strRstFen := strRstFen || '整';  
  End If;  
  strRst := strRstYuan || strRstFen;  
  --strRst := Replace(strRst, '億零', '億');  
  --strRst := Replace(strRst, '萬零', '萬');  
  Return strRst;  
End Money2Chinese; 

測試SQL如下：

Select Money2Chinese(0932402934024.213) From dual; 

結果：

玖仟三佰貳拾肆億零貳佰玖拾三萬肆仟零貳拾肆圓貳角整

測試通過