10进制转换为其它进制(非负数)

wxj_wz

免费乐捐，感谢支持

function string f_decimal2other (longlong al_num, integer ai_base);//10进制转换为其它进制
//al_num要转换的数
//ai_base要转换成的进制
int li_m
string ls_str
DO
li_m = Mod(al_num,ai_base)
al_num = al_num / ai_base
if li_m > 9 Then
  ls_str =char(li_m+55) + ls_str
else
  ls_str =char(li_m+48) + ls_str
end if
Loop While al_num <> 0
return ls_str

ehxz

好强的CODE@@

swimchen

稍微帮你改进下
STRING f_NumberExchange(LONGLONG all_Number,INTEGER ai_Multiple)
(
//判断NULL值
IF IsNull(all_Number) OR IsNull(ai_Multiple) THEN RETURN ""

//1进制??
IF ai_Multiple<2 THEN RETURN ""

//返回绝对值
IF ai_Multiple=10 THEN RETURN String(Abs(all_Number))

//取绝对值
all_Number=Abs(all_Number)

//声明变量
INTEGER li_Modules
STRING ls_Result

//循环取模整除判断
DO
        li_Modules=Mod(all_Number,ai_Multiple)
        all_Number=all_Number/ai_Multiple
        IF li_Modules<10 THEN ls_Result=Char(li_Modules+48)+ls_Result ELSE ls_Result=Char(li_Modules+55)+ls_Result
LOOP WHILE all_Number<>0

RETURN ls_Result
)

swimchen

顺便说下
实际应用这东西最好限制在36进制之内
刚好是0-9-A-Z(字母大写)

wxj_wz

这是仁者见智，你那绝对值已经是出问题了，
这段代码只是给出非负数10进制转换为其它方法的一种思路而已，代码能省略则省

swimchen

wxj_wz 发表于 2012-9-24 17:51
这是仁者见智，你那绝对值已经是出问题了，
这段代码只是给出非负数10进制转换为其它方法的一种思路而已， ...

进制转换一般都是正整数的，负数用补码之后会和正数重叠，用Windows自带的计算器就可以知道了
如果需要区分负数，可以自己做处理，比如取绝对值，把+/-符号分离出来，转换之后在前面加1或者0的标识，当然我代码上面没给出

对于小数的进制转换，因为可能有算不尽的情况，可以决定允许多少位数，之后倍率到整数再转，同样前面加标识1=10的1次方，2=10的2次方，同样我代码没给出，毕竟是直接改你的
相信我的方法在大多数条件下绝对合适

我现在关心的是楼主什么时候写给转回10进制的，一般10转出容易写，转入10比较难
我继续期待楼主的高招