引用公式：计算停牌
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;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
