USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página