Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Convertir Números A Números Romanos (1 A 3999)

Convertir Números A Números Romanos (1 A 3999)
Artículo
Responder citando    Descargar mensaje  
Mensaje 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.



 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Viernes, 20 Marzo 2020, 08:49 ]
 


Convertir Números A Números Romanos (1 A 3999)
Comentarios
Responder citando    Descargar mensaje  
Mensaje Re: Convertir Números A Números Romanos (1 A 3999) 
 
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"
....
 


 elcuatro



 
última edición por v3ctor el Domingo, 05 Abril 2020, 18:48; editado 3 veces 
v3ctor - Ver perfil del usuario Enviar mensaje privado  
v3ctor [ Domingo, 05 Abril 2020, 18:40 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 



 

cron