软件名称：[B]复牌与节日[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2010-03-26 10:28:25
软件简介:

复牌与节日

{一、个股非正常停牌，停牌天数，复牌标记-画出来}
if DATATYPE=6 then begin
sq:=WEEKDAY;{取得一个数字0-6}
上证停牌天数:=STKINDI('1A0001','计算停牌.ts',0,DATATYPE); {上证停牌天数 是 计算出复牌后与 上次 停牌日之间的实际天数（也包括周六、周日时间）。}
个股停牌天数:="计算停牌.ts"; {任意个股停牌天数 是 计算出复牌后与 上次 停牌日之间的实际天数（也包括周六、周日时间）。}
{分两种情况}
上证不停牌1:=上证停牌天数=0;{上证停牌天数为0，就是说上证不停牌的情况下，星期一到星期五，另外一种情况周六上证停牌天数也是为0，均在此列}
上证不停牌2:=上证停牌天数=1;{上证停牌天数为1，就是说上证停牌的情况下，星期日}
个股非正常停牌天数:= 个股停牌天数-上证停牌天数; {将目前个股停牌天数与上证停牌天数 做比较，看是否同步，同步则为0，不同步只有一种情况：个股非正常停牌天数大于0}
ww:=个股非正常停牌天数>0;{这里是说个股与大盘停牌不同步时，此时个股肯定有被上市公司停牌了，而且目前正处于停牌阶段}
DRAWICON(ww,h*1.03,8);{如果ww成立，在*处画个小图标8}
DRAWTEXT(ww, L*0.98,'停'),COLORFFFFFF,ALIGN0;{如果ww成立，在.处写上文字'停'，注意字符'停'要与.居中对齐}
DRAWTEXT(ww, L*0.96,'牌'),COLORFFFFFF,ALIGN0;{如果ww成立，在.处写上文字'牌'，注意字符'牌'要与.居中对齐}
DRAWNUMBER(ww,L*0.94,个股非正常停牌天数,0),COLORFFFFFF,ALIGN0;{如果ww成立，注意数字要与.居中对齐}
DRAWTEXT(ww, L*0.92,' 天'),COLORFFFFFF,ALIGN0;{如果ww成立，在.处写上文字' 天'，注意数字要与.居中对齐}
DRAWTEXT(ww, L*0.9,'今天复牌'),COLORFFFFFF,ALIGN0;{如果ww成立，在.处写上文字'今天复牌'，注意五个字符'今天复牌  '要居中对齐，即*位置处于‘复’与‘天’的中线上}

{二、大盘（包括个股）节日标记-画字出来-分三种情况}
{第一种情况-假如今天是周一的情况下}
aa:=上证停牌天数>2;{上证停牌天数>2天，就是说目前是周一或节假日（“目前”不一定代表开盘）}
bb:=sq=1;{周一是取数字1}
过节1:=aa and bb;{周一的情况下，上证停牌天数>2天，说明确实是 过节（因为正常情况下上证停牌天数（间隔）是2天）}

{第二种情况-假如今天是周二到周六的情况下}
cc:=上证停牌天数>0; {周六周日周一，这三天的情况下}
dd:=sq>1 and sq<7;{周二到周六的情况下取数字2.3.4.5.6任意一个}
过节2:=cc and dd;{周二到周六的情况下，上证停牌天数>0天，说明确实是 过节（因为正常情况下上证停牌天数（间隔）是0天）}

{第三种情况-假如今天是周日的情况下}
ee:=上证停牌天数>1;{周日的情况下}
ff:=sq=0;{周日的情况下取数字0}
过节3:=ff and ee;{周日的情况下，上证停牌天数>2天，说明确实是 过节（因为正常情况下上证停牌天数（间隔）是1天）}

过节:=过节1 or 过节2 or 过节3;

DRAWTEXT(过节>0, H*1.015,'节后开市'),COLORFF66FF;

end;

//align
 

[url=http://www.70822.com/soft/sort013/sort02/down-17836.html]复牌与节日[/url]