|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para Converter Números para Algarismos Romanos
|
 |
|
|
|
Postada em 8/5/2004 por Vaughyman
Public Function ConverterParaRomanos(Numero As Integer) As String
Dim Arabico(12) As Integer, Romano(12) As String
Dim i As Integer, Convertido As String
Arabico(0) = 1000
Arabico(1) = 900
Arabico(2) = 500
Arabico(3) = 400
Arabico(4) = 100
Arabico(5) = 90
Arabico(6) = 50
Arabico(7) = 40
Arabico(8) = 10
Arabico(9) = 9
Arabico(10) = 5
Arabico(11) = 4
Arabico(12) = 1
Romano(0) = "M"
Romano(1) = "CM"
Romano(2) = "D"
Romano(3) = "CD"
Romano(4) = "C"
Romano(5) = "XC"
Romano(6) = "L"
Romano(7) = "XL"
Romano(8) = "X"
Romano(9) = "IX"
Romano(10) = "V"
Romano(11) = "IV"
Romano(12) = "I"
i = 0
Do While Numero
Do While Numero >= Arabico(i)
Numero = Numero - Arabico(i)
Convertido = Convertido + Romano(i)
Loop
i = i + 1
Loop
ConverterParaRomanos = Convertido
End Function
|
|
|
|
|
