Transformar numeros romanos a decimales

Cerrado
-
 emanuel lopez -
Hola, necessto saber como hacer para transformar numeros romanos a numeros decimales, esto es para progremar en visual basic, espero me puedan ayudar, gracias

3 respuestas

Message postés
15
Date d'inscription
lunes, 22 de febrero de 2010
Estatus
Miembro
Última intervención
viernes, 23 de abril de 2010
66
lo que puedes hacer es utilizr un bucle .....¨¨
tan vova uds vaca imunda cala
gracias por ayudarme ami tarea internet te amooooooooooooooooooooo
hice una función para esto. se puede probar en excel.

Function romano_a_decimal(romano As String)
    For i = 1 To Len(romano)
        Letra = Mid(romano, i, 1)
        Select Case UCase(Letra)
            Case "C"
                valor = 100
            Case "M"
                valor = 1000
            Case "D"
                valor = 500
            Case "L"
                valor = 50
            Case "X"
                valor = 10
            Case "V"
                valor = 5
            Case "I"
                valor = 1
        End Select
        If valor > valor_anterior And valor_anterior > 0 Then valor_anterior = -valor_anterior
        Total = Total + valor_anterior
        valor_anterior = valor
    Next i
    romano_a_decimal = Total + valor_anterior   
End Function


Saludos,

Edo
quiero saber el decimal
i want to know the decimal
tu looser pinche
you loseerrrr piinchessseesesss
no ayuda en nada el ejercicio est mal
no me sirvio de nd
hola tengo ayudenme lairen