excel中数字转换英文大写程序
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Function NumbToEnglish(ByVal MyNumber)
Dim Temp
Dim Inte, Dec
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' 将数字Mynumber转换成字符串格式,并去掉多余空格
MyNumber = Trim(Str(MyNumber))
' 查找小数点“.”位置
DecimalPlace = InStr(MyNumber, ".")
' 如果找到小数点...
If DecimalPlace > 0 Then
' 转换小数部分
Temp = Len(Mid(MyNumber, DecimalPlace + 1))
Count = 1
Dec = ""
Do While Count - 1 <> Temp
Dec = Dec & " " & ConvertDecimal(Mid(MyNumber, DecimalPlace + Count, 1))
Count = Count + 1
Loop
' 去掉小数部分,保留剩下的整数部分留做转换
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If
Count = 1
Do While MyNumber <> ""
' 将最后的三位数字转换成英文数字
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Inte = Temp & Place(Count) & Inte
If Len(MyNumber) > 3 Then
' 如果整数部分大于三位,再向前移动三位数字重复进行转换
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
' 增加小数点描述
If Dec = "" Then
If Inte = "" Then
Dec = "No Number!"
End If
Else
If Inte = "" Then
Dec = "Zero Point" & Dec
Else
Dec = " Point" & Dec
End If
End If
NumbToEnglish = Inte & Dec
End Function
' 定义子函数,转换百位数
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
' 如果数字为空,退出.
If Val(MyNumber) = 0 Then Exit Function
' 在不满三位数的数字前补"0".
MyNumber = Right("000" & MyNumber, 3)
' 判断是否有百位数可供转换?
If Left(MyNumber, 1) <> "0" Then
If Right("000" & MyNumber, 2) <> 0 Then
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred and "
Else
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
End If
End If
' 判断是否有十位数可供转换?
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2)) Else
' 如果没有,转换个位数.
Result = Result & ConvertDigit(Mid(MyNumber, 3)) End If
ConvertHundreds = Trim(Result)
End Function
' 定义子函数,转换十位数
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
' 判断数字是否在10 - 19 之间?
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
' .. 否则,它是介于20 - 99 之间.
Select Case Val(Left(MyTens, 1))
Case 2: Result = "Twenty"
Case 3: Result = "Thirty"
Case 4: Result = "Forty"
Case 5: Result = "Fifty"
Case 6: Result = "Sixty"
Case 7: Result = "Seventy"
Case 8: Result = "Eighty"