以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  十进制转化为八进制  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=181468)

--  作者:chenshall
--  发布时间:2020/7/29 17:04:44
--  十进制转化为八进制
x为十进制数字,如何转换为八进制
--  作者:FireScript
--  发布时间:2020/7/29 17:35:37
--  
 x:150;//需要转换的数据
cd:=1;
str:=\'\';//不支持8进制 只能输出字符串形式
WHILE cd and ISLASTBAR do  //防止卡顿,只在最后一个周期计算。如果要历史K也计算,把ISLASTBAR 条件去掉
BEGIN
y:MOD(x ,8);//余
s:=(x-y)/8;//商
x:=s;
str:=STRCAT(NUMTOSTR(y,0),str);
if s=0 then cd:=0;
END

MSGOUT(ISLASTBAR,str);//输出看下。