飞狐节日与复牌指标源码[其他软件公式]

相关标签: 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.CXH99.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;