 | |  |  |
飞狐节日与复牌源码公式：
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; |
1.14 KB, 下载次数: 24
| |  | |  |
|
