Haz una pregunta Denunciar

Transformar numeros romanos a decimales

Alexander - Última respuesta el 19 mar 2015, 01:36
Hola, necessto saber como hacer para transformar numeros romanos a numeros decimales, esto es para progremar en visual basic, espero me puedan ayudar, gracias
Sigue leyendo 
Respuesta
+97
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
yo- 11 ene 2013, 01:33
me gusta esta pagina
Responder
nata- 23 feb 2013, 16:38
x favor q salgan los nmeros pasados a decimales
Responder
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
Deja tu comentario
Respuesta
+32
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
Respuesta
+0
moins plus
lairen- 19 mar 2015, 01:36
hola tengo ayudenme lairen
Responder
Deja tu comentario
El documento « transformar numeros romanos a decimales » de Kioskea (es.kioskea.net) se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo bajo las condiciones señaladas por esta licencia. Deberás hacerla siempre visible y dar crédito a Kioskea.

¿Todavía no eres usuario?

inscríbete, gratuitamente y en menos de un minuto!

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 gozar de otras opciones adicionales.