1. Create Or Replace Function Money2Chinese(Money In Number) Return Varchar2 Is
    2.   strYuan       Varchar2(150);
    3.   strYuanFen    Varchar2(152);
    4.   numLenYuan    Number;
    5.   numLenYuanFen Number;
    6.   strRstYuan    Varchar2(600);
    7.   strRstFen     Varchar2(200);
    8.   strRst        Varchar2(800);
    9.   Type typeTabMapping Is Table Of Varchar2(6) Index By Binary_Integer;
    10.   tabNumMapping  typeTabMapping;
    11.   tabUnitMapping typeTabMapping;
    12.   numUnitIndex   Number;
    13.   i              Number;
    14.   j              Number;
    15.   charCurrentNum Char(1);
    16. Begin
    17.   If Money Is Null Then
    18.     Return Null;
    19.   End If;
    20.   strYuan := TO_CHAR(FLOOR(Money));
    21.   If strYuan = '0' Then
    22.     numLenYuan := 0;
    23.     strYuanFen := lpad(TO_CHAR(FLOOR(Money * 100)), 2, '0');
    24.   Else
    25.     numLenYuan := length(strYuan);
    26.     strYuanFen := TO_CHAR(FLOOR(Money * 100));
    27.   End If;
    28.   If strYuanFen = '0' Then
    29.     numLenYuanFen := 0;
    30.   Else
    31.     numLenYuanFen := length(strYuanFen);
    32.   End If;
    33.   If numLenYuan = 0 Or numLenYuanFen = 0 Then
    34.     strRst := '零圆整';
    35.     Return strRst;
    36.   End If;
    37.   tabNumMapping(0) := '零';
    38.   tabNumMapping(1) := '壹';
    39.   tabNumMapping(2) := '贰';
    40.   tabNumMapping(3) := '叁';
    41.   tabNumMapping(4) := '肆';
    42.   tabNumMapping(5) := '伍';
    43.   tabNumMapping(6) := '陆';
    44.   tabNumMapping(7) := '柒';
    45.   tabNumMapping(8) := '捌';
    46.   tabNumMapping(9) := '玖';
    47.   tabUnitMapping(-2) := '分';
    48.   tabUnitMapping(-1) := '角';
    49.   tabUnitMapping(1) := '';
    50.   tabUnitMapping(2) := '拾';
    51.   tabUnitMapping(3) := '佰';
    52.   tabUnitMapping(4) := '仟';
    53.   tabUnitMapping(5) := '万';
    54.   tabUnitMapping(6) := '拾';
    55.   tabUnitMapping(7) := '佰';
    56.   tabUnitMapping(8) := '仟';
    57.   tabUnitMapping(9) := '亿';
    58.   For i In 1 .. numLenYuan Loop
    59.     j            := numLenYuan - i + 1;
    60.     numUnitIndex := Mod(i, 8);
    61.     If numUnitIndex = 0 Then
    62.       numUnitIndex := 8;
    63.     End If;
    64.     If numUnitIndex = 1 And i > 1 Then
    65.       strRstYuan := tabUnitMapping(9) || strRstYuan;
    66.     End If;
    67.     charCurrentNum := substr(strYuan, j, 1);
    68.     If charCurrentNum <> 0 Then
    69.       strRstYuan := tabNumMapping(charCurrentNum) ||
    70.                     tabUnitMapping(numUnitIndex) || strRstYuan;
    71.     Else
    72.       If (i = 1 Or i = 5) Then
    73.         If substr(strYuan, j - 3, 4) <> '0000' Then
    74.           strRstYuan := tabUnitMapping(numUnitIndex) || strRstYuan;
    75.         End If;
    76.       Else
    77.         If substr(strYuan, j + 1, 1) <> '0' Then
    78.           strRstYuan := tabNumMapping(charCurrentNum) || strRstYuan;
    79.         End If;
    80.       End If;
    81.     End If;
    82.   End Loop;
    83.   For i In -2 .. -1 Loop
    84.     j              := numLenYuan - i;
    85.     charCurrentNum := substr(strYuanFen, j, 1);
    86.     If charCurrentNum <> '0' Then
    87.       strRstFen := tabNumMapping(charCurrentNum) || tabUnitMapping(i) ||
    88.                    strRstFen;
    89.     End If;
    90.   End Loop;
    91.   If strRstYuan Is Not Null Then
    92.     strRstYuan := strRstYuan || '圆';
    93.   End If;
    94.   If strRstFen Is Null Then
    95.     strRstYuan := strRstYuan || '整';
    96.   Elsif length(strRstFen) = 2 And substr(strRstFen, 2) = '角' Then
    97.     strRstFen := strRstFen || '整';
    98.   End If;
    99.   strRst := strRstYuan || strRstFen;
    100.   --strRst := Replace(strRst, '亿零', '亿');
    101.   --strRst := Replace(strRst, '万零', '万');
    102.   Return strRst;
    103. End Money2Chinese;