1,079
社区成员
发帖
与我相关
我的任务
分享
//====================================================================
// 函数: uf_dec2hex()
//--------------------------------------------------------------------
// 描述: 10进制转16进制
//--------------------------------------------------------------------
// 参数:
// integer dec_
//--------------------------------------------------------------------
// 返回: string
//--------------------------------------------------------------------
// 作者: Wangenu 日期: 2009年10月09日
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
string rets,retsi[2]
int mod_,ds,i
i=1
ds=0
if dec_=0 then return '00'
do while dec_<>0
mod_=mod(dec_,16)
dec_=int(dec_/16)
choose case mod_
case 10
retsi[i]='A'
case 11
retsi[i]='B'
case 12
retsi[i]='C'
case 13
retsi[i]='D'
case 14
retsi[i]='E'
case 15
retsi[i]='F'
case else
retsi[i]=string(mod_)
end choose
i ++
loop
ds=upperbound(retsi)
if ds<2 then ds=2
for i=1 to 2
if isnull(retsi[3 - i]) or len(retsi[3 - i])=0 then retsi[3 - i]='0'
rets+=retsi[3 - i]
next
return rets