請提供進行十進制到十六進制的轉換的函數

[jhdandcl]

請提供進行十進制到十六進制的轉換的函數

[ldk]

//参数:
//long al_dec 十进制数
//int ai_num 返回几位

long ll_temp0, ll_temp1
char lc_ret

IF ai_num > 0 THEN
ll_temp0 = abs(al_dec / (16 ^ (ai_num - 1)))
ll_temp1 = ll_temp0 * (16 ^ (ai_num - 1))
IF ll_temp0 > 9 THEN
lc_ret = char(ll_temp0 + 55)
ELSE
lc_ret = char(ll_temp0 + 48)
END IF
RETURN lc_ret + &
of_long2hex(al_dec - ll_temp1 , ai_num - 1)
END IF
RETURN ""

[hjd_cw]

[of_long2hex(long alnumber, integer ai_digit) returns a string]

long ll_temp0, ll_temp1
char lc_ret

IF ai_digit > 0 THEN
ll_temp0 = abs(al_number / (16 ^ (ai_digit - 1)))
ll_temp1 = ll_temp0 * (16 ^ (ai_digit - 1))
IF ll_temp0 > 9 THEN
lc_ret = char(ll_temp0 + 55)
ELSE
lc_ret = char(ll_temp0 + 48)
END IF
RETURN lc_ret + &
of_long2hex(al_number - ll_temp1 , ai_digit - 1)
END IF
RETURN ""

// of_longhex(256, 4) returns "0100"
// of_longhex(256, 3) returns "100"

[hjd_cw]

[of_hex2long(as_hex) returns a long]
string ls_hex
integer i,length
long result = 0

length = len(as_hex)
ls_hex = Upper(as_hex)
FOR i = 1 to length
result += &
(Pos ('123456789ABCDEF', mid(ls_hex, i, 1)) * &
( 16 ^ ( length - i ) ))
NEXT
RETURN result

[xingxing]

对！

[lesni]

这里有一个标准进制转换函数：changejz(long shi,int how )
代码：
string two,sixteen,eight //定义三个字符串变量，用来存放最后输出的进制值
long lentwo,duan,i,j
string aa[50],a[50],b[4] //定义数组

//先把10进制数据通过取余数转换成2进制
//由于10进制到2进制的转换是通过取余数实现，所以这里用到的mod()函数，通过实//践，发现这样4行代码就可以把10进制转换到2进制
do while shi>0
two = two + string(mod(shi,2))
shi=shi / 2
loop

choose case how //选择输出进制

case 2 //选择2进制
//由于上面得到的2进制的数据方向是相反的：11011101101，所以要通过reverse()函数重新//把它颠倒过来
two=reverse(two) //得到正确的2进制10110111011
return two //返回函数值

case 8 //选择8进制
//2进制到8进制的转换是这样的，从右往左每3位为一个段，即8进制的一位，
lentwo=len(two) //取2进制的长度
if mod(lentwo,3) > 0 then //分段
duan=lentwo / 3 + 1
else
duan=lentwo /3
end if

for i= duan to 1 step -1 //由于没有颠倒过来的2进制是从右往左的，所以//分出来的段从左往右就是由大到小

aa[duan]=mid(two,i * 3 - 2 ,3) //取出每一段的2进制值
a[duan]='0'
for j=1 to 3

b[j]=mid(aa[duan],j,1) //每一段从右往左取值

if b[j]<> '' then
a[duan]=string(integer(a[duan]) + 2^(j -1 ) * integer(b[j]))
//按照2^0 * x + 2^1 *x +2^2 * x
//x为分别为从右到左的2进制的值，累加得到每一段的8进制值
end if


next
eight=eight + a[duan] //8进制段累加得到最后的8进制值
next
return eight
//16进制的方法如同8进制，只是每4位为一段而已
case 16 //16进制

lentwo=len(two)
if mod(lentwo,4) > 0 then
duan=lentwo / 4 + 1
else
duan=lentwo /4
end if


for i= duan to 1 step -1

aa[duan]=mid(two,i * 4 - 3 ,4)
a[duan]='0'
for j=1 to 4

b[j]=mid(aa[duan],j,1)

if b[j]<> '' then
a[duan]=string(integer(a[duan]) + 2^(j -1 ) * integer(b[j]))
end if

choose case integer(a[duan])
case 10
a[duan]='A'
case 11
a[duan]='B'
case 12
a[duan]='C'
case 13
a[duan]='D'
case 14
a[duan]='E'
case 15
a[duan]='F'
end choose

next
sixteen=sixteen + a[duan]
next
return sixteen

case else

end choose

[jhdandcl]

我沒有PB,幫我測試一下轉換是否支持大整數，
十進制 3555239970 -->十六進D3E8A822
十進制3950593778 -->十六進EB7946F2
謝謝!

[lesni]

可以，在我的例子中只要将参数Long改为ulong,把函数中b[2]改为b[4]就可以了.
调用：
sle_1.text = changejz(3555239970,16)