小伟请进我们在此交流

tchatcha 2003-04-22 09:57:13
//**********************************************************************
//函数名: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
...全文
61 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Pike_Feng 2003-04-29
  • 打赏
  • 举报
回复
是转16进制用的么。

401

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 非技术版
社区管理员
  • 非技术版社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧