Public Function AmtToNum(strCn As String) As String
''大写金额转换为数字
Dim i As Integer
Dim strTemp As String
For i = 1 To Len(strCn)
Debug.Print Mid(strCn, i, 1)
strTemp = strTemp & CnToNum(Mid(strCn, i, 1))
Next
AmtToNum = CDbl(strTemp)
End Function



Public Function CnToNum(strI As String) As String

Select Case strI
Case "零"
CnToNum = "0"
Case "壹"
CnToNum = "1"
Case "贰"
CnToNum = "2"
Case "叁"
CnToNum = "3"
Case "肆"
CnToNum = "4"
Case "伍"
CnToNum = "5"
Case "陆"
CnToNum = "6"
Case "柒"
CnToNum = "7"
Case "捌"
CnToNum = "8"
Case "玖"
CnToNum = "9"
Case "元"
CnToNum = "."
Case Else
CnToNum = ""
End Select
End Function