人民币大写转化函数（VB.NET版）

看了 二十四画生的Blog的大小写金额转换函数，自己也对照着写了个VB.NET的，然后用类封装了一下。

    Public Class Currency

        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