开拓者股指换月提醒代码

作者：开拓者 TB 来源：cxh99.com 发布时间：2012年10月16日

源码分享： 股指换月，持续三天提醒。

Vars
Numeric aa;
Numeric bb;
Numeric cc;
Numeric dd;
Numeric ee;
Numeric ff;
Begin
aa=(day-1)%7;
bb=Weekday;
cc=IIF(aa==bb,1,0);
dd=7*cc+(1-cc)*((7+aa-bb)%7);
ee=IIF(day<=dd,1,0);
ff=ee+(1-ee)*(IntPart((day-dd-1)/7)+2);
if(date!=date[1] and (Weekday()==3 || Weekday()==4 || Weekday()==5) and ff==3) PlotString("info", "换月", High*1.005);
End