[原创]十进制转换成十六进制函数

wangnet

免费乐捐，感谢支持

/*================================================================*/ //十进制转换成十六进制函数 //参数：long al_value（十进制数） //返回值：string（十六进制字符串） /*================================================================*/ string ls_str[16] = {'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'} string ls_rtn long ll_h,ll_l,ll_value ls_rtn ='' do while long(string(truncate(al_value/256,0))) > 0 //计算是256的n次方 ll_value = mod(al_value,256) if al_value > 0 then ll_h = int(ll_value/16) //取高位 ll_l = mod(ll_value,16) //取高位 ls_rtn = ls_str[ll_h + 1] + ls_str[ll_l + 1] + ls_rtn else ls_rtn = ls_rtn + '00' end if al_value = long(string(truncate(al_value/256,0))) loop if al_value > 0 then ll_h = int(al_value/16) //取高位 ll_l = mod(al_value,16) //取高位 ls_rtn = ls_str[ll_h + 1] + ls_str[ll_l + 1] + ls_rtn end if /*================================================================*/ //以下为补位处理，返回长度为3位的字符串，不足补0 (wangnet 2004-2-2) /*================================================================*/ long ll_len for ll_len = 1 to 3 if len(ls_rtn) = 3 then exit ls_rtn = '0' + ls_rtn next return ls_rtn