|
金额大写转换(5) End If
End If
Next
getSubUnit = StrRet
End Function
Private Function getNowGradeVal(ByVal StrVal As String, ByVal IntGrade As Integer) As String
'得到当前级次的串
Dim IntGradeLen As Integer
Dim IntLen As Integer
Dim StrRet As String
IntGradeLen = IntGrade * PrvGrade
IntLen = Len(StrVal)
If IntLen >= IntGradeLen Then
StrRet = Mid(StrVal, IntLen - IntGradeLen + 1, PrvGrade)
Else
StrRet = Mid(StrVal, 1, IntLen - (IntGrade - 1) * PrvGrade)
End If
'MsgBox StrRet
getNowGradeVal = StrRet
End Function
|
