小伟请进我们在此交流
//**********************************************************************
//函数名:uf_pub_hex
//功 能:16进制转换函数
//参 数:arg_lg_number 需转换的十进制数
// 返 回:st_hex十六进制 **********************************************************************
long lg_hex,lg_mod
string st_hex,st_return
IF arg_lg_number = 0 THEN RETURN '00'
lg_hex = arg_lg_number
lg_mod = mod(lg_hex,16)
lg_hex = lg_hex/16
DO WHILE lg_hex>0 OR lg_mod>0
CHOOSE CASE lg_mod
CASE 15
st_hex = 'F'
CASE 14
st_hex = 'E'
CASE 13
st_hex = 'D'
CASE 12
st_hex = 'C'
CASE 11
st_hex = 'B'
CASE 10
st_hex = 'A'
CASE ELSE
st_hex = string(lg_mod)
END CHOOSE
st_return = st_hex + st_return
lg_mod = mod(lg_hex,16)
lg_hex = lg_hex/16
LOOP
IF len(st_return) =1 THEN st_return = '0' + st_return
RETURN st_return