Denunciar

Transformar numeros romanos a decimales

Haz una pregunta Alexander - Última respuesta: 17 abr 2016 a las 01:41 por hola
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 
Vota
+146
moins plus
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
danisanchez- 2 nov 2014 a las 18:25
pero no sale ningun numero
Responder
mariana- 25 ene 2015 a las 19:56
no entiendo nd no me sirvio para nd en la tarea me pusieron un 1
Responder
valeria- 3 nov 2015 a las 22:29
estamos en la misma no entiendo nada
Responder
Tu opinión
Vota
+41
moins plus
lo que puedes hacer es utilizr un bucle .....¨¨
tata- 30 mar 2013 a las 22:10
tan vova uds vaca imunda cala
Responder
jj- 22 nov 2013 a las 00:24
gracias por ayudarme ami tarea internet te amooooooooooooooooooooo
Responder
Tu opinión
Vota
+4
moins plus
no me sirvio de nd
lairen- 19 mar 2015 a las 01:36
hola tengo ayudenme lairen
Responder
Tu opinión

Los miembros obtienen más respuestas que los usuarios anónimos.

Ser miembro te permite llevar un seguimiento detallado de tus consultas.

Ser miembro te permite disfrutar de opciones adicionales.

¿Todavía no eres usuario?

¡Inscríbete, es gratis y toma menos de un minuto!