Transformar numeros romanos a decimales [Cerrado]

Alexander - 30 sep 2009 a las 03:46 - Última respuesta:  emanuel lopez
- 13 abr 2017 a las 20:49
Hola, necessto saber como hacer para transformar numeros romanos a numeros decimales, esto es para progremar en visual basic, espero me puedan ayudar, gracias
Ver más 

32 respuestas

+71
Vota
26
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
¿Te sirvió esta respuesta?  
no entiendo nd no me sirvio para nd en la tarea me pusieron un 1
valeria > mariana - 3 nov 2015 a las 22:29
estamos en la misma no entiendo nada
que singnifia la M ydos rayas arriba
kalamarka 15 Publicaciones lunes, 22 de febrero de 2010Fecha de inscripción viernes, 23 de abril de 2010 Última intervención - 23 abr 2010 a las 16:35
+46
Vota
2
lo que puedes hacer es utilizr un bucle .....¨¨
tan vova uds vaca imunda cala
gracias por ayudarme ami tarea internet te amooooooooooooooooooooo
hola tengo ayudenme lairen