主题：期权策略编写求助

需要使用后台程序化。

if MONTH<>ref(MONTH,1) then begin
 PZ:=ROUNDS(CALLSTOCK('QQ510050',VTCLOSE,6),2);
 EXTGBSTRINGSET('PZ',PZ );
 D1PG:=OPOBYPRIRCE('QQ510050',PZ,0,1,1);//平值认购合约
 D1PM:=OPOBYPRIRCE('QQ510050',PZ,1,1,1);
 EXTGBSTRINGSET('D1PG',D1PG );
 EXTGBSTRINGSET('D1PM',D1PM );
 TBUYSHORT(1,1,MKT,'','','',D1PG);
 TBUYSHORT(1,1,MKT,'','','',D1PM);
end

IF TOPENPROFIT/TENTERPRICE*10000>=0.5 then BEGIN
 TSELLSHORT(1,1,MKT,'','','',D1PG);
 TSELLSHORT(1,1,MKT,'','','',D1PM);
end
 
if (CALLSTOCK('QQ510050',VTCLOSE,6)-CALLSTOCK('QQ510050',VTCLOSE,6.-1))>0.008 then begin
 TSELLSHORT(1,1,MKT,'','','',D1PG);
 TBUYSHORT(1,1,MKT,'','','',D1PM); 
end
if (CALLSTOCK('QQ510050',VTCLOSE,6)-CALLSTOCK('QQ510050',VTCLOSE,6.-1))<0.008 then begin
 TSELLSHORT(1,1,MKT,'','','',D1PM);
 TBUYSHORT(1,1,MKT,'','','',D1PG); 
end

if EXTGBSTRING('PZ')=ROUNDS(CALLSTOCK('QQ510050',VTCLOSE,6),2) THEN BEGIN
 IF TSELLHOLDINGEX( '','D1PG' ,2)>1 then TSELLSHORT(1,(TSELLHOLDINGEX( '','D1PG' ,2)-1),MKT,'','','',D1PG);
 IF TSELLHOLDINGEX( '','D1PM' ,2)>1 then TSELLSHORT(1,(TSELLHOLDINGEX( '','D1PM' ,2)-1),MKT,'','','',D1PM);
 IF TSELLHOLDINGEX( '','D1PG' ,2)=0 then TSELLSHORT(1,1,MKT,'','','',D1PG);
 IF TSELLHOLDINGEX( '','D1PM' ,2)=0 then TSELLSHORT(1,1,MKT,'','','',D1PM);
END

if (date,OPTIONINFO2(7 ,EXTGBSTRING('D1PG')))<=1

少了半个括号。

没有直接可用的函数，不知道你说的当前月份的第一天要怎么定义？