Convertir Números A Números Romanos (1 A 3999)
Subject: 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.
Subject: Re: Convertir Números A Números Romanos (1 A 3999)
Last edited by v3ctor on Sunday, 05 April 2020, 18:48; edited 3 times in total
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"
....
Last edited by v3ctor on Sunday, 05 April 2020, 18:48; edited 3 times in total
Page 2 of 2
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.1065s (PHP: -28% SQL: 128%)
SQL queries: 24 - Debug Off - GZIP Enabled