GeneXus - Funcion Numeros Romanos

   
Vista:

Funcion Numeros Romanos

Publicado por Maria (4 intervenciones) el 30/11/2010 20:05:12
Hola buenas tardes, alguien podria decirme de alguna funcion para convertir un numero arabigo a romano en genexus 9..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Funcion Numeros Romanos

Publicado por Julio (301 intervenciones) el 02/12/2010 01:20:21
No lo tengo pero podrías buscarlo en el sitio GxOpen, no estoy muy seguro pero me parece que en alguna ocasión vi la Kb que necesitas para descargarla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Funcion Numeros Romanos

Publicado por luis (2 intervenciones) el 02/12/2010 14:55:20
Toma, yo tengo esta. Le pasas una variable numerica y te la devuelve en caracter romano. Me base en un programa de visual basic que encontre en la web, no me acuerdo de quien era.

//&Unidad C(10) Vector de 10
//&Decena C(10) Vector de 10
//&Centena C(10) Vector de 10
//&NumRom1 N(10)
//&NumRom2 N(10)
//&NumRom3 N(10)
//&Numero //C(20)

&Unidad(1) = 'I'
&Unidad(2) = 'II'
&Unidad(3) = 'III'
&Unidad(4) = 'IV'
&Unidad(5) = 'V'
&Unidad(6) = 'VI'
&Unidad(7) = 'VII'
&Unidad(8) = 'VIII'
&Unidad(9) = 'IX'
&Unidad(10) = ''

&Decena(1) = 'X'
&Decena(2) = 'XX'
&Decena(3) = 'XXX'
&Decena(4) = 'XL'
&Decena(5) = 'L'
&Decena(6) = 'LX'
&Decena(7) = 'LXX'
&Decena(8) = 'LXX'
&Decena(9) = 'XC'
&Decena(10) = ''

&Centena(1) = 'C'
&Centena(2) = 'CC'
&Centena(3) = 'CCC'
&Centena(4) = 'CD'
&Centena(5) = 'D'
&Centena(6) = 'DC'
&Centena(7) = 'DCC'
&Centena(8) = 'DCCC'
&Centena(9) = 'CM'
&Centena(10) = ''

&NumRom1 = Val(SubStr(Str(&Num,3,0),3,1))
&NumRom2 = Val(SubStr(Str(&Num,3,0),2,1))
&NumRom3 = Val(SubStr(Str(&Num,3,0),1,1))
If &NumRom1 = 0
&NumRom1 = 10
EndIf
If &NumRom2 = 0
&NumRom2 = 10
EndIf
If &NumRom3 = 0
&NumRom3 = 10
EndIf

&Numero = &Centena(&NumRom3) + &Decena(&NumRom2) + &Unidad(&NumRom1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar