Transformar numeros romanos a decimales [Cerrado]

Denunciar
-
 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
Consulta también:

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
65
lo que puedes hacer es utilizr un bucle .....¨¨
62
Gracias

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 28707 usuarios nos han dicho gracias este mes

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
no entiendo nd no me sirvio para nd en la tarea me pusieron un 1
> mariana
estamos en la misma no entiendo nada

que singnifia la M ydos rayas arriba
no me sirvio de nd
hola tengo ayudenme lairen