 
等级: 超级版主
- 注册:
- 2021-5-18
- 曾用名:
- gxx978
|
没有标准范例,参考如下代码结构:
IF DATE<>REF(DATE,1) THEN BEGIN //每日,初始化每天的交易次数
EXTGBDATASET('计时',0);
EXTGBDATASET('每日次数',0);
END
IF EXTGBDATA('计时')=0 THEN BEGIN //每分钟计时
EXTGBDATASET('分钟计时',CURRENTTIME);
EXTGBDATASET('计时',1);
END
IF TIMETOT0(CURRENTTIME)-TIMETOT0(EXTGBDATA('分钟计时'))>60 AND EXTGBDATA('分钟计时')<>0 THEN BEGIN //达到1分钟,初始化每分钟的交易次数
EXTGBDATASET('分钟计时',CURRENTTIME);
EXTGBDATASET('计时',0);
EXTGBDATASET('每分钟次数',0);
END
IF EXTGBDATA('每分钟次数')<300 AND EXTGBDATA('每日次数')<20000 AND CONKC THEN BEGIN
TBUY(1,1,MKT);
EXTGBDATASET('每分钟次数',EXTGBDATA('每分钟次数')+1);
EXTGBDATASET('每日次数',EXTGBDATA('每日次数')+1);
END
|
|