停牌復牌指標公式

ts:DATETOD1970(DATE)-REF(DATETOD1970(DATE),1)-1;

主圖公式：節日與復牌

if DATATYPE=6 then begin

sq:=WEEKDAY;

上證天:=STKINDI('1A0001','計算停牌.ts',0,DATATYPE);

個股天:="計算停牌.ts";

aa2:=上證天=0;aa3:=sq<個股天-上證天;aa4:=INTPART(個股天-上證天-2);

aa5:=INTPART(個股天-上證天);aa6:=aa2 AND aa3;

aa1:=IF(aa6,aa4,aa5);bb1:=個股天>上證天;

cc1:=IF(bb1,aa1,0);

個股停牌天:=cc1;

aa:=上證天>2;

bb:=sq=1;

過節1:=aa and bb;

cc:=上證天>0;

dd:=sq>1;

過節2:=cc and dd;

過節:=過節1 or 過節2;

ff:=過節>0;

DRAWTEXT(ff , H*1.015,'節後開市'),COLORFF66FF;

DRAWNUMBER(個股停牌天>0,l*0.98,個股停牌天,0),COLORFFFFFF,ALIGN0;

DRAWTEXT(個股停牌天>0 , L*0.98,' 天'),COLORFFFFFF,ALIGN1;

DRAWTEXT(個股停牌天>0 , L*0.98,'停牌 '),COLORFFFFFF,ALIGN2;

DRAWTEXT(個股停牌天>0 , L*0.94,'今天復牌 '),COLORFFFFFF,ALIGN0;

end;