16,746
社区成员
发帖
与我相关
我的任务
分享excel中10进制如何转换成34进制？
现需要把表中的数据由10进制转换成34进制，但excel中只有10进制和2、8、16进制之间的转换，所以请高手帮个忙，先谢谢了！
...全文
请发表友善的回复…
发表回复
yyj409 2010-07-19
- 打赏
- 举报
SuperTitan005
请问怎么写呀，我对这个是一窍不通的，谢谢
请问怎么写呀，我对这个是一窍不通的，谢谢
天火 2010-07-12
- 打赏
- 举报
原来还有34进制啊。
iamduo 2010-07-11
- 打赏
- 举报
function IntToX(AValue,x:Integer):string;
var i:Integer;
begin
Result:='';
i:=AValue;
repeat
Result:=IntToStr(i mod x)+Result;
i:=i div x
until i=0;
end;
function IntToBin(AValue:Integer):string;
var i:Integer;
begin
Result:='';
i:=AValue;
repeat
Result:=IntToStr(i mod 2)+Result;
i:=i div 2
until i=0;
end;
试试看，能不能用？
var i:Integer;
begin
Result:='';
i:=AValue;
repeat
Result:=IntToStr(i mod x)+Result;
i:=i div x
until i=0;
end;
function IntToBin(AValue:Integer):string;
var i:Integer;
begin
Result:='';
i:=AValue;
repeat
Result:=IntToStr(i mod 2)+Result;
i:=i div 2
until i=0;
end;
试试看，能不能用？
SuperTitan005 2010-07-11
- 打赏
- 举报
自己写个程序循环的div mod就可以了
