飛狐節日與復牌指標源碼

相關標簽: st北亞復牌價格估計 、 st北亞何時復牌 、 st關鋁有復牌消息嗎 、 600705 復牌時間 、 賢成礦業什么時候復牌 、 st金城復牌最新消息 、 2012年重組復牌股票 、 st股票重組成功復牌價 、 st華源復牌 、

引用公式(名稱不可更改)：計算停牌
 

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;{來源： www.tumamayizhan.com }
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;