如何获取主力合约和下月合约的代码

103768

例如：300股指的连续合约代码是IF00，当前主力合约是IF05，下月合约是IF06。如何在程序里获得这两个合约的代码？

资深技术02

mm:if(month<12,month+1,1);
mm2:numtostr(mm,0);
if STRLEN(mm2)=1 then mm3:=STRCAT('0' , mm2);
if STRLEN(mm2)=2 then mm3:=mm2;
code:STRCAT(STRLEFT(stklabel ,2 ) , mm3);
msgout(islastbar,code)