公式------股东人数
文章出处:易坚 发布时间:2005-09-08
gdstar:=F10FIND('┃股东户数',1);
{查找F10中股东人数的位置}
gdw1:=f10find('┃04-09-30',gdstar);
gdw2:=f10find('┃04-06-30',gdw1);
gdw3:=f10find('┃04-03-31',gdw2);
gdw4:=f10find('┃03-12-31',gdw3);
{取对应的数据资料}
gdtx1:=F10TEXT(gdw1+10,8);gdtx2:=F10TEXT(gdw2+10,8);
gdtx3:=F10TEXT(gdw3+10,8);gdtx4:=F10TEXT(gdw4+10,8);
{转换字符串为数值}
gd1:=STRTONUM(gdtx1);gd2:=STRTONUM(gdtx2);
gd3:=STRTONUM(gdtx3);gd4:=STRTONUM(gdtx4);
{显示方法一:解盘显示股东人数变动}
EXPLAIN(gdw1>1,'04-09-30 总户数:'+gdtx1);
EXPLAIN(gdw2>1,'04-06-30 总户数:'+gdtx2);
EXPLAIN(gdw3>1,'04-03-31 总户数:'+gdtx3);
EXPLAIN(gdw4>1,'03-12-31 总户数:'+gdtx4);
{显示方法二:对应显示在 K 线上}
DRAWNUMBER(date=1040930,c,gd1,0),ALIGN5;
DRAWNUMBER(date=1040630,c,gd2,0),ALIGN5;
DRAWNUMBER(date=1040331,c,gd3,0),ALIGN5;
DRAWNUMBER(date=1031231,c,gd4,0),ALIGN5;
{显示方法三:对应显示为拄状线,附图时用}
STICKLINE(BETWEEN(date,1040929,1041231),gd1/10,gd1,8,0);
STICKLINE(BETWEEN(date,1040629,1040930),gd1/10,gd2,8,0);
STICKLINE(BETWEEN(date,1040330,1040630),gd1/10,gd3,8,0);
STICKLINE(BETWEEN(date,1031231,1040331),gd1/10,gd4,8,0);
{查找F10中股东人数的位置}
gdw1:=f10find('┃04-09-30',gdstar);
gdw2:=f10find('┃04-06-30',gdw1);
gdw3:=f10find('┃04-03-31',gdw2);
gdw4:=f10find('┃03-12-31',gdw3);
{取对应的数据资料}
gdtx1:=F10TEXT(gdw1+10,8);gdtx2:=F10TEXT(gdw2+10,8);
gdtx3:=F10TEXT(gdw3+10,8);gdtx4:=F10TEXT(gdw4+10,8);
{转换字符串为数值}
gd1:=STRTONUM(gdtx1);gd2:=STRTONUM(gdtx2);
gd3:=STRTONUM(gdtx3);gd4:=STRTONUM(gdtx4);
{显示方法一:解盘显示股东人数变动}
EXPLAIN(gdw1>1,'04-09-30 总户数:'+gdtx1);
EXPLAIN(gdw2>1,'04-06-30 总户数:'+gdtx2);
EXPLAIN(gdw3>1,'04-03-31 总户数:'+gdtx3);
EXPLAIN(gdw4>1,'03-12-31 总户数:'+gdtx4);
{显示方法二:对应显示在 K 线上}
DRAWNUMBER(date=1040930,c,gd1,0),ALIGN5;
DRAWNUMBER(date=1040630,c,gd2,0),ALIGN5;
DRAWNUMBER(date=1040331,c,gd3,0),ALIGN5;
DRAWNUMBER(date=1031231,c,gd4,0),ALIGN5;
{显示方法三:对应显示为拄状线,附图时用}
STICKLINE(BETWEEN(date,1040929,1041231),gd1/10,gd1,8,0);
STICKLINE(BETWEEN(date,1040629,1040930),gd1/10,gd2,8,0);
STICKLINE(BETWEEN(date,1040330,1040630),gd1/10,gd3,8,0);
STICKLINE(BETWEEN(date,1031231,1040331),gd1/10,gd4,8,0);