Consulta también:
- Transformar en numeros romanos
- Excel columnas con numeros en vez de letras - Guide
- Como saber mi numero en claro - Guide
- Transformar word a jpg - Guide
- Simbolo de numero n° en el teclado mac - Guide
- Numeros elegidos claro - Guide
3 respuestas
kalamarka
Mensajes enviados
15
Fecha de inscripción
lunes, 22 de febrero de 2010
Estatus
Miembro
Última intervención
viernes, 23 de abril de 2010
66
23 abr 2010 a las 16:35
23 abr 2010 a las 16:35
lo que puedes hacer es utilizr un bucle .....¨¨
hice una función para esto. se puede probar en excel.
Saludos,
Edo
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
30 mar 2013 a las 22:10
22 nov 2013 a las 00:24