Denunciar

Transformar numeros romanos a decimales

Haz una pregunta Alexander - Última respuesta el 17 abr 2016, 01:41
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 
Útil
+135
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, 18:25
pero no sale ningun numero
Responder
mariana- 25 ene 2015, 19:56
no entiendo nd no me sirvio para nd en la tarea me pusieron un 1
Responder
valeria- 3 nov 2015, 22:29
estamos en la misma no entiendo nada
Responder
Deja tu comentario
Útil
+40
moins plus
lo que puedes hacer es utilizr un bucle .....¨¨
tata- 30 mar 2013, 22:10
tan vova uds vaca imunda cala
Responder
jj- 22 nov 2013, 00:24
gracias por ayudarme ami tarea internet te amooooooooooooooooooooo
Responder
Deja tu comentario
Útil
+4
moins plus
no me sirvio de nd
lairen- 19 mar 2015, 01:36
hola tengo ayudenme lairen
Responder
Deja tu comentario
Útil
+1
moins plus
Hola. Os dejo un vídeo con las reglas básicas para leer y escribir números romanos.

https://youtu.be/uerP4_xLF34

Un saludo.
Deja tu comentario

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, gratis y en menos de un minuto!