VB.net中金额大写转换

Module Currency
    Public Class Converter
        Inherits Object

        Private Const CST_CAPSTR_TAIL As String = "整"
        Private Const CST_CAPSSTR_ZERO As String = "零"
        Private Const CST_CAPSSTR As String = CST_CAPSSTR_ZERO & "壹贰叁肆伍陆柒捌玖"
        Private Const CST_POSSTR_YUAN As String = "元"
        Private Const CST_POSSTR As String = "万仟佰拾亿仟佰拾万仟佰拾" & CST_POSSTR_YUAN & "角分"
        Private Const CST_CHNNUM_ZERO As String = CST_CAPSSTR_ZERO & CST_POSSTR_YUAN & CST_CAPSTR_TAIL

        Private Shared ReadOnly CST_MAXLENGTH As Integer = CST_POSSTR.Length

        Public Shared Function ConvertToCapsString(ByVal dec As Decimal) As String
            Dim i, j, nZero As Integer
            Dim strDec, strPos, ch1, ch2 As String
            Dim chnNum, chnPos As String
            Dim strOnePosValue As String
            Dim intOnePosValue As Integer

            '将num取绝对值并四舍五入取2位小数
            dec = Math.Round(Math.Abs(dec), 2)
            '将num乘100并转换成字符串形式
            strDec = Convert.ToInt64(dec * 100).ToString
            '找出最高位
            j = strDec.Length
            If i > CST_MAXLENGTH Then
                Throw New OverflowException
            ElseIf dec = 0 Then
                '零元的时候，直接输出“零元整”
                chnNum = CST_CHNNUM_ZERO
            Else
                '取出对应位数的str2的值。如：200.55,j为5所以str2=佰拾元角分
                strPos = CST_POSSTR.Substring(CST_MAXLENGTH - j)
                '循环取出每一位需要转换的值
                For i = 0 To j - 1
                    '取出需转换的某一位的值
                    strOnePosValue = strDec.Substring(i, 1)
                    '转换为数字
                    intOnePosValue = Convert.ToInt32(strOnePosValue)
                    If i <> j - 3 AndAlso i <> j - 7 AndAlso i <> j - 15 Then
                        '当所取位数不为元、万、亿、万亿上的数字时
                        If strOnePosValue = "0" Then
                            '此位为零，只计入零的个数。不转换。
                            ch1 = ""
                            ch2 = ""
                            nZero = nZero + 1
                        Else
                            '此位非零
                            If nZero = 0 Then
                                '前面没有零，追加此位的中文
                                ch1 = CST_CAPSSTR.Substring(intOnePosValue * 1, 1)
                                ch2 = strPos.Substring(i, 1)
                                nZero = 0
                            Else
                                '前面已经有零，无论有多少只加一个零，然后追加此位的中文
                                ch1 = CST_CAPSSTR_ZERO & CST_CAPSSTR.Substring(intOnePosValue * 1, 1)
                                ch2 = strPos.Substring(i, 1)
                                nZero = 0
                            End If
                        End If
                    Else
                        '该位是万亿，亿，万，元位等关键位
                        If strOnePosValue <> "0" AndAlso nZero <> 0 Then
                            ch1 = CST_CAPSSTR_ZERO & CST_CAPSSTR.Substring(intOnePosValue * 1, 1)
                            ch2 = strPos.Substring(i, 1)
                            nZero = 0
                        Else
                            If strOnePosValue <> "0" AndAlso nZero = 0 Then
                                ch1 = CST_CAPSSTR.Substring(intOnePosValue * 1, 1)
                                ch2 = strPos.Substring(i, 1)
                                nZero = 0
                            Else
                                If strOnePosValue = "0" AndAlso nZero >= 3 Then
                                    ch1 = ""
                                    ch2 = ""
                                    nZero = nZero + 1
                                Else
                                    If j > 11 Then
                                        '亿以上
                                        ch1 = ""
                                        nZero = nZero + 1
                                    Else
                                        '亿以下
                                        ch1 = ""
                                        ch2 = strPos.Substring(i, 1)
                                        nZero = nZero + 1
                                    End If
                                End If
                            End If
                        End If
                    End If
                    If i = j - 11 OrElse i = j - 3 Then
                        '如果该位是亿位或元位，则必须写上
                        ch2 = strPos.Substring(i, 1)
                    End If
                    chnNum = chnNum & ch1 & ch2
                    If i = j - 1 AndAlso strOnePosValue = "0" Then
                        '最后一位（分）为0时，加上“整”
                        chnNum = chnNum & CST_CAPSTR_TAIL
                    End If
                Next
            End If
            Return chnNum
        End Function

        Public Shared Function ConvertToCapsString(ByVal dec As String) As String
            Dim num As Decimal = 0
            Try
                num = Convert.ToDecimal(dec)
            Catch ex As Exception
                Throw New InvalidateDecimalFormatException(dec)
            End Try
            Return ConvertToCapsString(num)
        End Function

        Public Class OverflowException
            Inherits Exception

            Public Sub New()
                MyBase.New("Overflow in parameter. To string length must less than " & CST_MAXLENGTH & ".")
            End Sub

        End Class

        Public Class InvalidateDecimalFormatException
            Inherits Exception

            Private m_val As String

            Public ReadOnly Property Value() As String
                Get
                    Return m_val
                End Get
            End Property

            Public Sub New(ByVal val As String)
                MyBase.New("The string value cannot be converted to decimal.")
                m_val = val
            End Sub

        End Class

    End Class
End Module