[VB技巧]12位纯数字字符串转换为大写字符串

Select Case num
Case 0
数字转大写 = "零"
Case 1
数字转大写 = "壹"
Case 2
数字转大写 = "贰"
Case 3
数字转大写 = "叁"
Case 4
End If
字符串_检查字符串是否为纯数字 = 1
End Function
'*************************************************************************
'**函 数 名：字符串_删除指定位置字符
'**输 入：str(Variant) - 待处理字符串
数位转换 = "佰"
Case 8
数位转换 = "仟"
Case 9
数位转换 = "亿"
Case 10
数位转换 = "拾"
Case 11
数位转换 = "佰"
Case 12
End If
If InStr(result, "零仟") > 0 Then
result = 字符串_删除指定位置字符(result, InStr(result, "零仟") + 1)
End If
If InStr(result, "零零") > 0 Then
数位转换 = "拾"
Case 3
数位转换 = "佰"
Case 4
数位转换 = "仟"
Case 5
数位转换 = "万"
Case 6
数位转换 = "拾"
Case 7
Case Else
字符串_删除指定位置字符 = Left(str, num - 1) & Right(str, Len(str) - num)
End Select
End Function
Public Function 数字转大写(num As Variant)
字符串_数字转大写 = result
End Function
'*************************************************************************
'**函 数 名：字符串_检查字符串是否为纯数字
'**输 入：字符串(Variant) - 任意字符串
result = 字符串_删除指定位置字符(result, InStr(result, "零零") + 1)
End If
Loop Until InStr(result, "零佰") = 0 And InStr(result, "零拾") = 0 And InStr(result, "零仟") = 0 And InStr(result, "零零") = 0
End If
Select Case num
Case 1
字符串_删除指定位置字符 = Right(str, Len(str) - 1)
Case Len(str)
字符串_删除指定位置字符 = Left(str, Len(str) - 1)
result = 字符串_删除指定位置字符(result, InStr(result, "零佰") + 1)
End If
If InStr(result, "零拾") > 0 Then
result = 字符串_删除指定位置字符(result, InStr(result, "零拾") + 1)
'**输 出：1表示为纯数字字符串,0表示为否
'**功能பைடு நூலகம்述：检查字符串是否为纯数字组成
'*************************************************************************
Public Function 字符串_检查字符串是否为纯数字(字符串 As String)
数位转换 = "仟"
End Select
End Function
s = Mid(sData, i, 1)
w = sLen + 1 - i
result = result & 数字转大写(s) & 数位转换(w)
Next
Do
If InStr(result, "零佰") > 0 Then
'** ：num(Variant) - 待删除字符的位置编号
'**输 出：新的字符串
'**功能描述：删除字符串中自定位置的字
'*************************************************************************
'**功能描述：将数字转换为大写数字
'*************************************************************************
Public Function 字符串_数字转大写(sData As String)
Dim sLen As Integer
'*************************************************************************
'**函 数 名：字符串_数字转大写
'**输 入：sData(String) - 数字字符串(仅支持12位全数字字符串)
'**输 出：大写数字,如果返回-1则表示输入的字符串不符合规定
Public Function 字符串_删除指定位置字符(str As Variant, num As Variant)
'检查num是否大于待处理字串str的长度
If Len(str) < num Then
字符串_删除指定位置字符 = 0
Exit Function
Dim s As String
Dim w As Integer
Dim result As String
Dim i, a
sLen = Len(sData)
'检查sData是否为12位纯数字字符串
If sLen > 12 Or 字符串_检查字符串是否为纯数字(sData) = 0 Then
数字转大写 = "玖"
End Select
End Function
Public Function 数位转换(numlong As Variant)
Select Case numlong
Case 1
数位转换 = ""
Case 2
字符串_数字转大写 = -1 '错误返回-1,表示输入字符串不符合规定
Exit Function
End If
'开始转换
For i = 1 To sLen
On Error Resume Next
字符串 = 字符串 / 1
If err.Number = 13 Then
字符串_检查字符串是否为纯数字 = 0 '非纯数字
Exit Function
数字转大写 = "肆"
Case 5
数字转大写 = "伍"
Case 6
数字转大写 = "陆"
Case 7
数字转大写 = "柒"
Case 8
数字转大写 = "捌"
Case 9