数字转换为葡语字母的Excel VBA 代码

Option Explicit

Function NumeroPorExtenso(valor As Double) As String
Dim unidades As Variant, dezenas As Variant, centenas As Variant
Dim parteInteira As Long, parteDecimal As Long
Dim resultado As String

unidades = Array("", "um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove", _
"dez", "onze", "doze", "treze", "catorze", "quinze", "dezasseis", "dezassete", "dezoito", "dezanove")
dezenas = Array("", "", "vinte", "trinta", "quarenta", "cinquenta", "sessenta", "setenta", "oitenta", "noventa")
centenas = Array("", "cem", "cento", "duzentos", "trezentos", "quatrocentos", "quinhentos", "seiscentos", "setecentos", "oitocentos", "novecentos")

parteInteira = Int(valor)
parteDecimal = Round((valor - parteInteira) * 100)

resultado = Trim(ExtensoParte(parteInteira, unidades, dezenas, centenas))

If parteInteira = 1 Then
resultado = resultado & " Metical"
Else
resultado = resultado & " Meticais"
End If

If parteDecimal > 0 Then
resultado = resultado & " e " & ExtensoParte(parteDecimal, unidades, dezenas, centenas)
If parteDecimal = 1 Then
resultado = resultado & " Centavo"
Else
resultado = resultado & " Centavos"
End If
End If

' 转为首字母大写
NumeroPorExtenso = StrConv(resultado, vbProperCase)
End Function

Private Function ExtensoParte(n As Long, unidades As Variant, dezenas As Variant, centenas As Variant) As String
Dim resultado As String
If n = 0 Then
ExtensoParte = "zero"
Exit Function
End If

If n < 20 Then
resultado = unidades(n)
ElseIf n < 100 Then
resultado = dezenas(Int(n / 10))
If n Mod 10 > 0 Then resultado = resultado & " e " & unidades(n Mod 10)
ElseIf n < 1000 Then
Dim c As Long
c = Int(n / 100)
If n = 100 Then
resultado = "cem"
Else
resultado = centenas(c + 1)
If n Mod 100 > 0 Then resultado = resultado & " e " & ExtensoParte(n Mod 100, unidades, dezenas, centenas)
End If
ElseIf n < 1000000 Then
resultado = ExtensoParte(Int(n / 1000), unidades, dezenas, centenas) & " mil"
If n Mod 1000 > 0 Then resultado = resultado & " e " & ExtensoParte(n Mod 1000, unidades, dezenas, centenas)
Else
resultado = ExtensoParte(Int(n / 1000000), unidades, dezenas, centenas) & " milhão"
If Int(n / 1000000) > 1 Then resultado = Replace(resultado, "milhão", "milhões")
If n Mod 1000000 > 0 Then resultado = resultado & " e " & ExtensoParte(n Mod 1000000, unidades, dezenas, centenas)
End If

ExtensoParte = resultado
End Function