共14 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

标题：[求助]时间问题

1楼

渴望知识 发表于：2015/7/8 10:47:14

金折，下面的代码是我曾经询问过的，但是正好今天有跌停，我验证了有下，输出不对啊：

if rmmr<>dynainfo(28) and tholding<>0 then

begin

rmmr:=dynainfo(28);//当前买入价

rmmrtime:=timetot0(dynainfo(207));//当前买入价起始时间

end

if rmmc<>dynainfo(34) and tholding<>0 then

begin

rmmc:=dynainfo(34);//当前卖出价

rmmctime:=timetot0(dynainfo(207));//当前卖出价起始时间

end

rmmrcxsj:=timetot0(dynainfo(207))-rmmrtime;//当前买入价持续时间

rmmccxsj:=timetot0(dynainfo(207))-rmmctime;//当前卖出价持续时间

DEBUGFILE('D:\金子塔调试文件保存\TEST.TXT','买入持续时间为 %.0f',RMMRCXSJ)；

DEBUGFILE('D:\金子塔调试文件保存\TEST.TXT','卖出持续时间为 %.0f',RMMCcxsj)；

[此贴子已经被作者于2015/7/8 10:48:11编辑过]

2楼

渴望知识 发表于：2015/7/8 10:50:00

这个输出的咋都是0或-1呢？

3楼

jinzhe 发表于：2015/7/8 10:51:52

把我原来回答问题的链接，再发一下

4楼

渴望知识 发表于：2015/7/8 10:54:46

http://www.weistock.com/bbs/dispbbs.asp?boardid=4&id=79973&authorid=0&page=0&star=1

5楼

jinzhe 发表于：2015/7/8 10:56:15

用extgbdataset试试

[此贴子已经被作者于2015/7/8 10:56:42编辑过]

6楼

渴望知识 发表于：2015/7/8 10:57:10

我现在代码中，起始定义RMMR和RMMC为1，也就是：

GLOBALVARIABLE:rmmr=1,rmmc=1；

7楼

渴望知识 发表于：2015/7/8 11:10:01

啊，必须要用EXTGBDATASETAMT吗？我就是想避免这个东西的，因为其他的策略里也用用到这个代码的。

我不想改的太多了，不然就乱了。

8楼

jinzhe 发表于：2015/7/8 11:10:32

你先试对了

9楼

渴望知识 发表于：2015/7/8 11:32:30

还是输出不对啊。拿螺纹钢来试的，总是输出-1 。

//价位持续一定时间后的处理

if extgbdata('rmmr')=0 then extgbdataset('rmmr',1);

if extgbdata('rmmc')=0 then extgbdataset('rmmc',1);

if extgbdata('rmmrtime')=0 then extgbdataset('rmmr',1);

if extgbdata('rmmctime')=0 then extgbdataset('rmmc',1);

if extgbdata('rmmr')<>dynainfo(28) and tholding<>0 then

begin

extgbdataset('rmmr',dynainfo(28));//当前买入价

rmmrtime:=extgbdataset('rmmrtime',timetot0(dynainfo(207)));//当前买入价起始时间

end

if extgbdata('rmmc')<>dynainfo(34) and tholding<>0 then

begin

extgbdataset('rmmc',dynainfo(34));//当前卖出价

rmmctime:=extgbdataset('rmmctime',timetot0(dynainfo(207)));//当前卖出价起始时间

end

rmmrcxsj:=timetot0(dynainfo(207))-rmmrtime;//当前买入价持续时间

rmmccxsj:=timetot0(dynainfo(207))-rmmctime;//当前卖出价持续时间

DEBUGFILE('D:\金子塔调试文件保存\TEST.TXT','买入持续时间为 %.0f',RMMRCXSJ)；

DEBUGFILE('D:\金子塔调试文件保存\TEST.TXT','卖出持续时间为 %.0f',RMMCcxsj)；

10楼

jinzhe 发表于：2015/7/8 13:22:10

if extgbdata('rmmr')=0 then extgbdataset('rmmr',1);
if extgbdata('rmmc')=0 then extgbdataset('rmmc',1);
if extgbdata('rmmrtime')=0 then extgbdataset('rmmr',1);
if extgbdata('rmmctime')=0 then extgbdataset('rmmc',1);

if extgbdata('rmmr')<>dynainfo(28) then
begin
    extgbdataset('rmmr',dynainfo(28));//当前买入价
    extgbdataset('rmmrtime',timetot0(dynainfo(207)));//当前买入价起始时间
end

if extgbdata('rmmc')<>dynainfo(34) then
begin
    extgbdataset('rmmc',dynainfo(34));//当前卖出价
    extgbdataset('rmmctime',timetot0(dynainfo(207)));//当前卖出价起始时间
end
rmmrtime:extgbdata('rmmrtime');
rmmctime:extgbdata('rmmctime');
rmmrcxsj:timetot0(dynainfo(207))-rmmrtime;//当前买入价持续时间
rmmccxsj:timetot0(dynainfo(207))-rmmctime;//当前卖出价持续时间

dd:timetot0(dynainfo(207));
DEBUGFILE('D:\TEST.TXT','买入持续时间为 %.0f',RMMRCXSJ)；
DEBUGFILE('D:\TEST.TXT','卖出持续时间为 %.0f',RMMCcxsj)；

共14 条记录, 每页显示 10 条, 页签: [1] [2]