Convertir de némeros decimales a romanos
Publicado: Mié, 04 Mar 2026, 00:07
Lo único que necesitará este código será de un Textbox y un Botón, en el texto se introducirán los valores que se convertirán al hacer clic en el botón, y los mismos se mostrarán en la barra de título del programa:
Código: Seleccionar todo
Private Sub Command1_Click()
Dim temporal As String
temporal = ""
For i = 0 To Text1.Text - 1
temporal = temporal & "I"
Next
'empezar todo de menor a mayor
temporal = Replace(temporal, "IIIII", "V")
temporal = Replace(temporal, "VV", "X")
temporal = Replace(temporal, "XXXXX", "L")
temporal = Replace(temporal, "LL", "C")
temporal = Replace(temporal, "CCCCC", "D")
temporal = Replace(temporal, "DD", "M")
'hacer los 4 y los nueve que son los mas dificiles
temporal = Replace(temporal, "IIII", "IV") '4
temporal = Replace(temporal, "VIV", "IX") '9
temporal = Replace(temporal, "LXXXX", "XC") 'NOVENTA Y PICO
temporal = Replace(temporal, "XXXX", "XL") 'CUARENTA Y PICO
temporal = Replace(temporal, "DCCCC", "CM") 'NOVECIETOS Y PICO
temporal = Replace(temporal, "CCCC", "CD") 'CUATROCIENTOS Y PICO
temporal = Replace(temporal, "XCIX", "IC") '99
temporal = Replace(temporal, "CMIC", "IM") '999
MsgBox = temporal
End Subt.