|
金额大写转换(2) IntLen = Len(StrVal)
StrRet = Mid(StrVal, 1, IntLen - IntBegin) '总字串长度-小数数位长度=整数数位长度
If Mid(StrRet, Len(StrRet), 1) = "." Then '去除末位小数点
StrRet = Mid(StrRet, 1, Len(StrRet) - 1)
End If
getIntUnit = StrRet
End Function Private Function getIntUpper(ByVal StrVal As String) As String
'得到转换后的大写（整数部分）
Dim IntGrade As Integer '级次
Dim StrRet As String
Dim StrTmp As String
'得到当前级次，
IntGrade = Fix(Len(StrVal) / PrvGrade)
'调整级次长度
If (Len(StrVal) Mod PrvGrade) <> 0 Then
IntGrade = IntGrade + 1
End If
'MsgBox Mid(PrvStrGradeUnit, IntGrade, 1)
Dim i As Integer
'对每级数字处理
For i = IntGrade To 1 Step -1
StrTmp = getNowGradeVal(StrVal, i) '取得当前级次数字
StrRet = StrRet & getSubUnit(StrTmp) '转换大写
StrRet = dropZero(StrRet) '除零
'加级次单位
If i > 1 Then '末位不加单位
'单位不能相连续
'??????????????????????????????????
'
StrRet = StrRet & Mid(PrvStrGradeUnit, i, 1)
|
