用VB代码把4位数字转化为汉字数字。
'把四位数字转换成大写汉字
Public Function Big(ByRef n As String) As Object
Dim i As Object
Dim s(3) As Object
Big = ""
If Len(n) <> 4 Then Exit Function
s(0) = Left(n, 1)
s(1) = Right(Left(n, 2), 1)
s(2) = Left(Right(n, 2), 1)
s(3) = Right(n, 1)
For i = 0 To 3
Select Case s(i)
Case "0"
s(i) = "零"
Case "1"
s(i) = "壹"
Case "2"
s(i) = "贰"
Case "3"
s(i) = "叁"
Case "4"
s(i) = "肆"
Case "5"
s(i) = "伍"
Case "6"
s(i) = "陆"
Case "7"
s(i) = "柒"
Case "8"
s(i) = "捌"
Case "9"
s(i) = "玖"
End Select
Next
Big = s(0) & s(1) & s(2) & s(3)
End Function