飛狐節(jié)日與復(fù)牌指標(biāo)源碼

相關(guān)標(biāo)簽: st北亞復(fù)牌價(jià)格估計(jì) 、 st北亞何時(shí)復(fù)牌 、 st關(guān)鋁有復(fù)牌消息嗎 、 600705 復(fù)牌時(shí)間 、 賢成礦業(yè)什么時(shí)候復(fù)牌 、 st金城復(fù)牌最新消息 、 2012年重組復(fù)牌股票 、 st股票重組成功復(fù)牌價(jià) 、 st華源復(fù)牌 、

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

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

主圖公式：節(jié)日與復(fù)牌

if DATATYPE=6 then begin
sq:=WEEKDAY;
上證天:=STKINDI('1A0001','計(jì)算停牌.ts',0,DATATYPE);
個(gè)股天:="計(jì)算停牌.ts";
aa2:=上證天=0;aa3:=sq<個(gè)股天-上證天;aa4:=INTPART(個(gè)股天-上證天-2);
aa5:=INTPART(個(gè)股天-上證天);aa6:=aa2 AND aa3;
aa1:=IF(aa6,aa4,aa5);bb1:=個(gè)股天>上證天;
cc1:=IF(bb1,aa1,0);
個(gè)股停牌天:=cc1;
aa:=上證天>2;
bb:=sq=1;
過(guò)節(jié)1:=aa and bb;
cc:=上證天>0;
dd:=sq>1;
過(guò)節(jié)2:=cc and dd;
過(guò)節(jié):=過(guò)節(jié)1 or 過(guò)節(jié)2;
ff:=過(guò)節(jié)>0;{來(lái)源： www.tumamayizhan.com }
DRAWTEXT(ff , H*1.015,'節(jié)后開(kāi)市'),COLORFF66FF;
DRAWNUMBER(個(gè)股停牌天>0,l*0.98,個(gè)股停牌天,0),COLORFFFFFF,ALIGN0;
DRAWTEXT(個(gè)股停牌天>0 , L*0.98,' 天'),COLORFFFFFF,ALIGN1;
DRAWTEXT(個(gè)股停牌天>0 , L*0.98,'停牌 '),COLORFFFFFF,ALIGN2;
DRAWTEXT(個(gè)股停牌天>0 , L*0.94,'今天復(fù)牌'),COLORFFFFFF,ALIGN0;
end;