相關標簽:

?

引用公式：計算停牌
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;
{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?