欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 当月次月的行情引用--分享

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2739人关注过本帖平板打印复制链接

主题:当月次月的行情引用--分享

帅哥哟,离线,有人找我吗?
yin8jun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:503 积分:1033 威望:0 精华:0 注册:2011/11/18 10:56:56
当月次月的行情引用--分享  发帖心情 Post By:2017/12/18 18:08:38    Post IP:101.81.61.255[只看该作者]

//在主图为连续合约的时使用

thismon:=NUMTOSTR(MONTH,0);
nextmon:=if(month=12,NUMTOSTR(1,0),NUMTOSTR(MONTH+1,0));
IF MONTH<9 THEN BEGIN
PZ:=STRLEFT(STKLABEL,3);
PD:=STRLEFT(STKLABEL,3);
END
IF MONTH=9 THEN BEGIN
PZ:=STRLEFT(STKLABEL,3);
PD:=STRLEFT(STKLABEL,2);
END
IF MONTH>9 and MONTH<12 THEN BEGIN
PZ:=STRLEFT(STKLABEL,2);
PD:=STRLEFT(STKLABEL,2);
END 
IF MONTH=12 THEN BEGIN
PZ:=STRLEFT(STKLABEL,2);
PD:=STRLEFT(STKLABEL,3);
END

DY:=STRCAT(PZ,thismon); //当月
CY:=STRCAT(PD,nextmon);//次月

DYMIN1:CALLSTOCK(DY,VTCLOSE,1,0);//当月合约1分钟收盘价的引用
CYMIN1:CALLSTOCK(CY,VTCLOSE,1,0);//次月合约1分钟收盘价的引用

 回到顶部