通达信停牌标记公式 副图源码

{停牌标记}
DRAWKLINE(H,O,L,C);
 BAR:=CALCSTOCKINDEX('399001','BARNO',1);
 ZRRS1:=DATETODAY(DATE)-DATETODAY(REF(DATE,1))-1;
 JYRS1:=REF(BAR,1)-BAR-1;
 TODAY:=ISLASTBAR AND V=0;
 JYRS:=IF(TODAY,JYRS1+1,JYRS1);
 ZRRS:=IF(TODAY,ZRRS1+1,ZRRS1);
 FP:=JYRS>0;
 FPB:=BARSLAST(FP);
最近停牌日期:REF(DATE,FPB+1),NODRAW,COLORYELLOW; {次日停牌}
最近复牌日期:IF(TODAY,DRAWNULL,REF(DATE,FPB)),NODRAW,COLORYELLOW;
停牌自然日日数:REF(ZRRS,FPB),NODRAW,COLOR00AAFF;
停牌交易日数:REF(JYRS,FPB),NODRAW,COLOR00AAFF;
 DRAWICON(FP,L*0.95,34);
 DRAWTEXT(FP,H*1.15,VAR2STR(REF(DATE,1),0)),COLORYELLOW,DRAWABOVE;
 DRAWTEXT(FP,H*1.09,VAR2STR(DATE,0)),COLORYELLOW,DRAWABOVE;
 DRAWTEXT(FP,H*1.03,VARCAT(VARCAT(VAR2STR(ZRRS,0),', '), VAR2STR(JYRS,0))),COLOR00AAFF,DRAWABOVE;