ORACLE 小写金额转大写金额

Create Or Replace Function Money2Chinese(Money In Number) Return Varchar2 Is
  strYuan       Varchar2();
  strYuanFen    Varchar2();
  numLenYuan    Number;
  numLenYuanFen Number;
  strRstYuan    Varchar2();
  strRstFen     Varchar2();
  strRst        Varchar2();
  Type typeTabMapping Is Table Of Varchar2() Index By Binary_Integer;
  tabNumMapping  typeTabMapping;
  tabUnitMapping typeTabMapping;
  numUnitIndex   Number;
  i              Number;
  j              Number;
  charCurrentNum Char();
Begin
  If Money Is Null Then
    Return Null;
  End If;
  strYuan := TO_CHAR(FLOOR(Money));
  If strYuan = '' Then
    numLenYuan := ;
    strYuanFen := lpad(TO_CHAR(FLOOR(Money * )), , '');
  Else
    numLenYuan := length(strYuan);
    strYuanFen := TO_CHAR(FLOOR(Money * ));
  End If;
  If strYuanFen = '' Then
    numLenYuanFen := ;
  Else
    numLenYuanFen := length(strYuanFen);
  End If;
  If numLenYuan =  Or numLenYuanFen =  Then
    strRst := '零圆整';
    Return strRst;
  End If;
  tabNumMapping() := '零';
  tabNumMapping() := '壹';
  tabNumMapping() := '贰';
  tabNumMapping() := '叁';
  tabNumMapping() := '肆';
  tabNumMapping() := '伍';
  tabNumMapping() := '陆';
  tabNumMapping() := '柒';
  tabNumMapping() := '捌';
  tabNumMapping() := '玖';
  tabUnitMapping(-) := '分';
  tabUnitMapping(-) := '角';
  tabUnitMapping() := '';
  tabUnitMapping() := '拾';
  tabUnitMapping() := '佰';
  tabUnitMapping() := '仟';
  tabUnitMapping() := '万';
  tabUnitMapping() := '拾';
  tabUnitMapping() := '佰';
  tabUnitMapping() := '仟';
  tabUnitMapping() := '亿';
  For i In  .. numLenYuan Loop
    j            := numLenYuan - i + ;
    numUnitIndex := Mod(i, );
    If numUnitIndex =  Then
      numUnitIndex := ;
    End If;
    If numUnitIndex =  And i >  Then
      strRstYuan := tabUnitMapping() || strRstYuan;
    End If;
    charCurrentNum := substr(strYuan, j, );
    If charCurrentNum <>  Then
      strRstYuan := tabNumMapping(charCurrentNum) ||
                    tabUnitMapping(numUnitIndex) || strRstYuan;
    Else
      If (i =  Or i = ) Then
        If substr(strYuan, j - , ) <> '' Then
          strRstYuan := tabUnitMapping(numUnitIndex) || strRstYuan;
        End If;
      Else
        If substr(strYuan, j + , ) <> '' Then
          strRstYuan := tabNumMapping(charCurrentNum) || strRstYuan;
        End If;
      End If;
    End If;
  End Loop;
  For i In - .. - Loop
    j              := numLenYuan - i;
    charCurrentNum := substr(strYuanFen, j, );
    If charCurrentNum <> '' 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) =  And substr(strRstFen, ) = '角' 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;

结果：

玖仟叁佰贰拾肆亿零贰佰玖拾叁万肆仟零贰拾肆圆贰角壹分

测试通过

转自：http://www.cnblogs.com/Ira_Young/archive/2009/11/11/1601168.html