主题：求教怎样实现后程序化交易的主动换月

怎样把IF的主力合约自动加到程序里,麻烦帮忙修改下,谢谢!

 

 

MA1:=MA(C,5);
MA2:=MA(C,10);
AA:=MA1-MA2;
 {主力合约}       

月份:=STRTONUM(STRRIGHT(STKLABEL,2)),linethick0;

if10:=date>=1100916,linethick0;

if09:=date>1100817 and date<1100916;

if08:=date>=1100715 and date<=1100817;

if07:=date<1100715 and date>=1100617;

if06:=date>=1100518 and date<1100617;

if05:=date<=1100517 and date>=1100416;

主力合约:=if(月份=5,if05,if(月份=6,if06,if(月份=7,if07,if(月份=8,if08,if(月份=9,if09,if(月份=10,if10,0)))))),linethick0;

if 主力合约 then begin

KD:=AA>0;          //开多条件
PD:=AA<0;          //平多条件
KK:=AA<0;          //开空条件
PK:=AA>0;          //平空条件

平空:SELLSHORT(PK AND 主力合约 AND HOLDING<0,HOLDING,MARKET);                  //平空信号
开多:BUY(KD AND 主力合约 AND HOLDING=0,40%,MARKET);          //开多信号
平多:SELL(PD AND 主力合约 AND HOLDING>0,HOLDING,MARKET);                       //平多信号
开空:BUYSHORT(KK AND 主力合约 AND HOLDING=0 ,40%,MARKET);     //开空信号

}

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=7358&page=4

编写一个移仓的VBA 程序模板，感兴趣的用户可以进一步来开发