Convertir Números A Números Romanos (1 A 3999)
Objetivo: Re: Convertir Números A Números Romanos (1 A 3999)
El problema real es que no llego a combinar un símbolo UNICODE de un carácter con un símbolo diacrítico UNICODE usando la consola.
Objetivo: Re: Convertir Números A Números Romanos (1 A 3999)
última edición por v3ctor el Domingo, 05 Abril 2020, 18:48; editado 3 veces
Buenas he visto y leído que en libros antiguos el 4 no es IV sino IIII , en vez de XIV 14 es, XIIII aparentemente no he visto otra variación pero se solucionaría añadiendo una variable que podría ser tipo: RomanoAntiguo para usar uno u otro. Alguno conoce otra variación?
Public Sub EnteroToRomano(entero As Integer, optional RomanoAntiguo as boolean) As String '' 144
Select Case entero
Case 1
Return "I"
Case 2
Return "II"
Case 3
Return "III"
Case 4
if RomanoAntiguo then
Return "IIII"
else
Return "IV"
endif
Case 5
Return "V"
Case 6
Return "VI"
Case 7
Return "VII"
....
Public Sub EnteroToRomano(entero As Integer, optional RomanoAntiguo as boolean) As String '' 144
Select Case entero
Case 1
Return "I"
Case 2
Return "II"
Case 3
Return "III"
Case 4
if RomanoAntiguo then
Return "IIII"
else
Return "IV"
endif
Case 5
Return "V"
Case 6
Return "VI"
Case 7
Return "VII"
....
última edición por v3ctor el Domingo, 05 Abril 2020, 18:48; editado 3 veces
Página 2 de 2
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.3962s (PHP: -85% SQL: 185%)
Consultas SQL: 46 - Debug off - GZIP Activado