合约均价

倾听纯真

您好，麻烦您，帮我写一下计算主力合约月后的依次连续三个月远期合约的平均价的语句，谢谢您！

技术009

[PEL] 复制代码

STR:=STRTRIMRIGHT( STKLABEL, '0123456789');

//双年份合约，豆一和白糖虽然取消双年份，但是金字塔为保证老用户策略的正常操作，所以保持不变。因此依旧需要区分。
if STRCMP(STR,'AY')=0 or  STRCMP(STR,'BUY')=0 OR  STRCMP(STR,'SRY') THEN BEGIN
 STR:= STRREPLACE(STR , 'Y','X') ;
END



M:=STRTONUM(STRRIGHT(STKLABEL , 2)) ;
M1:IF(M+1<=12,M+1,M+1-12);
M2:IF(M+2<=12,M+2,M+2-12);
M3:IF(M+3<=12,M+3,M+3-12);

M1S:=IF(M1>=10,NUMTOSTR(M1,0),STRCAT('0',NUMTOSTR(M1,0)));
M2S:=IF(M2>=10,NUMTOSTR(M2,0),STRCAT('0',NUMTOSTR(M2,0)));
M3S:=IF(M3>=10,NUMTOSTR(M3,0),STRCAT('0',NUMTOSTR(M3,0)));
code1:=STRCAT(STR , M1S);
code2:=STRCAT(STR , M2S);
code3:=STRCAT(STR , M3S);


均价:(CALLSTOCK(code1,vtclose,-1,0)+CALLSTOCK(code2,vtclose,-1,0)+CALLSTOCK(code3,vtclose,-1,0))/3;

用在指数，连续合约上无效。月份规则不是1-12月份的品种也无效。

倾听纯真

技术009 发表于 2021-9-6 10:30
[mw_shl_code=pel,true]STR:=STRTRIMRIGHT( STKLABEL, '0123456789');

//双年份合约，豆一和白糖虽然取 ...

多谢