主题：期权指定交易合约的编写问题

如果到期日大于7日，选取当月平值认购合约

如果到期日小于7日，选取下月平值认购合约

请问这个可以如何编写？

谢谢

a:rounds("QQ510050$close",2)

SIZE:=OPTIONSIZE('QQ510050',1509,0);
IF ISLASTBAR THEN
BEGIN
 FOR I = 1 TO SIZE DO
 BEGIN

  if OPTIONINFO2(8, OPTIONLABEL(I))>7 and OPTIONINFO2(5, OPTIONLABEL(I)) = a  and round(OPTIONINFO2(7, OPTIONLABEL(I))/100) = month  then

       PZ:=OPTIONLABEL(I);
 END

  if OPTIONINFO2(8, OPTIONLABEL(I))<7 and OPTIONINFO2(5, OPTIONLABEL(I)) = a  and round(OPTIONINFO2(7, OPTIONLABEL(I))/100) = month+1 then

       PZ:=OPTIONLABEL(I);
 END

END

这个自由发挥下啦，重要的是思想，而不是去关注这个。