| Pregunta: | 19456 - DECIMAL A HEXADECIMAL |
| Autor: | jose hinojos |
| si alguien me puede proporcionar el codigo para convertir decimales a hexadecimales en visual foxpro
| |
| Respuesta: | Antonio Estrada |
| Aquí lo tienes (las llamadas recursivas son un regalo del cielo)
function dec2hex (ndecimal) local c1 local c2 if ndecimal < 256 if ndecimal%16<10 c2=str(ndecimal%16,1) else c2=chr(ndecimal%16+55) endif if ndecimal/16<10 c1=str(int(ndecimal/16),1) else c1=chr(int(ndecimal/16)+55) endif return c1+c2 else return dec2hex(int(ndecimal/256))+dec2hex(int(ndecimal%256)) endif | |