金额大写转换

金额大写转换(3)         End If
       
    Next
    getIntUpper = StrRet
End Function

Private Function getDotUpper(ByVal StrVal As String) As String
    '得到转换后的大写（小数部分）
End Function
Private Function dropZero(ByVal StrVal As String) As String
    '去除连继的“零”
    Dim StrRet As String
    Dim StrBefore As String '前一位置字符
    Dim StrNow As String    '现在位置字符
    Dim i As Integer
   
   
    StrBefore = Mid(StrVal, 1, 1)
    StrRet = StrBefore
   
    For i = 2 To Len(StrVal)
        StrNow = Mid(StrVal, i, 1)
           
        If StrNow = "零" And StrBefore = "零" Then
            '同时为零
        Else
            StrRet = StrRet & StrNow
        End If
        StrBefore = StrNow
    Next
   
    '末位去零
    Dim IntLocate As Integer
   
    IntLocate = Len(StrRet)
    'IntLocate = IIf(IntLocate = 0, 1, IntLocate)
   
    If Mid(StrRet, IntLocate, 1) = "零" Then
        StrRet = Left(StrRet, Len(StrRet) - 1)
    End If
    dropZero = StrRet
End Function
Private Function getSubUnit(ByVal StrVal As String) As String
    '数值转换
    Debug.Print StrVal