以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://www.weistock.com/bbs/list.asp?boardid=2)
----  程序里面怎么写股指的当月合约和次月合约代码？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=85163)
--  作者：小李飞刀
--  发布时间：2015/9/14 15:15:06
--  程序里面怎么写股指的当月合约和次月合约代码？
 你好，想问下程序里面怎么写股指的当月合约和次月合约代码？
--  作者：十世
--  发布时间：2015/9/14 16:58:35
--  


MM1:=NUMTOSTR(MONTH,0);
MMM1:=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 THEN BEGIN
PZ:=STRLEFT(STKLABEL,2);
PD:=STRLEFT(STKLABEL,2);
END
DY:STRCAT(PZ,MM1); //当月
CY:STRCAT(PD,MMM1);//次月

DRAWTEXT(C<O,H,DY);
DRAWTEXT(C>O,H,CY);