mjose
11 de Noviembre del 2003

Hola a todos/as !!!

Necesito saber si hay alguna funcion donde muestre el valor hexadecimal de cualquier caracter que le pases como parametro.
Es urgente.
¡¡¡ MUCHAS GRACIAS !!!

Alex
11 de Noviembre del 2003

Que tal mjose.

Esta es una función par encontrar el Hexadecimal de un caracter.

=Messagebox(GetHexa(ASC('1')))
=Messagebox(GetHexa(ASC('a')))


FUNCTION GetHexa
PARAMETER nDecimal, nDigito

IF PARAMETERS() = 2
RETURN RIGHT(TRANSFORM(nDecimal, "@0"), IIF(nDigito <= 8, nDigito, 8))
ENDIF

nExponente = 2
DO WHILE nExponente < 9
IF nDecimal <= (16^nExponente)
RETURN RIGHT(TRANSFORM(nDecimal, "@0"), nExponente)
ENDIF
nExponente = nExponente + 1
ENDDO

ENDFUNC

Espero te sirva.


Alex Vargas

mjose
11 de Noviembre del 2003

¡¡¡ MUCHAS GRACIAS POR TU AYUDA !!!

Alex
11 de Noviembre del 2003

Esto es lo que devuelve el valor hexadecimal completo.

TRANSFORM(<Caracter>, "@0")


Alex Vargas