软件名称：[B]停牌标记公式(源码 副图 通达信 贴图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2015-11-13 01:54:14
软件简介:

看到多人求助股票停牌公式，特把本人在几年前写的一个指标公式发布在这里。你想参考就下载。
当光标移动时，在公式顶行显示的是离“当前光标”位置最近的停牌信息。
（注：本公式只是在K线图上把停牌信息标记出来，与股票买卖点无关！）
 

停牌标记公式，要调用BarNo公式（见后），别忘记建立它。
---------------------------------------------------------------------------------------------------

{停牌标记}
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;

========================================
被调用的"BarNo公式"，只含1条语句，如下

{BarNo}
CURRBARSCOUNT; 

[url=http://www.70822.com/soft/sort013/sort05/down-90999.html]停牌标记公式(源码 副图 通达信 贴图[/url]