软件名称：[B]实际流通股(f10提取数据、看看股本的变化和真实换手率过程)（源码、副图、贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2011-06-10 05:21:30
软件简介:

st0:=F10FIND('★本栏包括【1.股本结构】【2.股本变化】【3.限shou流通】【4.股改情况】',10);
DRAWTEXT(SYSPARAM(2)+20=BARPOS AND st0<=0,15,'本公式不适合该种F10资料。只适用于【港澳资讯】'),COLOREEFF;
if st0<=0 then EXIT;
bt1:=F10FIND('｜ 变更日期 ',st0),LINETHICK;;
TXEND:=F10FIND('┘',bt1),LINETHICK;;//
ttx:=F10TEXT(bt1,txend-bt1);  
bt2:=STRFIND(ttx,'流通A股',1);  
bt3:=STRFIND(ttx,'实际流通A股',bt2);  
t2:=bt2,LINETHICK; t3:=bt3,LINETHICK;
表头:=strmid(ttx,1,bt3+31)+'股本变动(%)';   sln:=STRLEN(ttx),LINETHICK;
lns:=sln/(bt3+31);

VARIABLE:da[lns]:='',gb[lns]='';
NR:='';  WZT:=1;   ii:=0;
WHILE WZT<sln-140 DO BEGIN
   WZT:=STRFIND(ttx,'-',WZT+70);   
   ii:=ii+1;
   tx:=strmid(ttx,WZT-6,72);   ti:=strmid(ttx,WZT-4,10);
   ltg:=STRFIND(tx,'.',t2);    sjg:=STRFIND(tx,'.',t3);
   da[ii]:=NUMTOSTR(STRTONUM(strmid(ti,1,4))-1900,0)+strmid(ti,6,2)+strmid(ti,9,2);
   gb[ii]:=if(sjg>0,strmid(tx,sjg-8,11),strmid(tx,ltg-8,11));
   NR:=NR+if(WZT<sln,tx+'('+NUMTOSTR(ii,0)+')  '+'\n','');
    end
DRAWTEXTex(BARSTATUS=2,0,1,1,表头+'\n'+NR+'('+NUMTOSTR(ii,0)+')  '),COLORDDFE;

ggb:=STRTONUM(gb[ii]);
for i=ii downto 1 do   
ggb:=if(BARPOS>1 and ref(date,1)<STRTONUM(da) and date>=STRTONUM(da),STRTONUM(gb),ggb) ;
流通盘:hhv(ggb,0),color00ff00;
变动率:=(流通盘/ref(流通盘,1)-1)*100,LINETHICK;
DRAWNUMBER(BARPOS>2 and 流通盘<>ref(流通盘,1),流通盘,变动率,1),pxup30,COLOR00ff00,ALIGN2; //
股本转存:if(BARPOS=2 or 流通盘<>ref(流通盘,1),流通盘,0),linethick1;//让转存自定义数据清晰

{转存自定义数据公式名为: 实际流通股
读自定义数据公式
实际流通盘:hhv(SELFdata('实际流通股'),0);{}

[url=http://www.70822.com/soft/sort013/sort02/down-34756.html]实际流通股(f10提取数据、看看股本的变化和真实换手率过程)（源码、副图、贴图）[/url]