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

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
+49
Vota
2
lo que puedes hacer es utilizr un bucle .....¨¨
¿Te sirvió esta respuesta?  
tan vova uds vaca imunda cala
gracias por ayudarme ami tarea internet te amooooooooooooooooooooo
+44
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
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
hola tengo ayudenme lairen