分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册
当前位置:分析家公式网股票公式飞狐公式 → 一键转帖:机构持股-港澳

软件名称:[B]机构持股-港澳[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/
软件语言:简体中文
授权方式:免费版
软件大小:0 Bytes
官方主页:Home Page
更新时间:2009-10-14 13:48:45
软件简介:

//机构持股-港澳
n:=12;
S:=F10FIND('【1.机构持股汇总】',100);
S1:=F10FIND('报告日期 |',S)+11;
S2:=F10FIND('|',S1);
季:STRTONUM(F10TEXT(S1,S2-S1)-'-')-19000000,LINETHICK0;
S3:=F10FIND('基金持股 |',1);
基金持股:strtonum(f10text(S3+11,11)),LINETHICK0;
//11----"基金持股 |"的字符长度
S33:=F10FIND('占流通A比 |',S3);
基金占比:if(基金持股>0,strtonum(f10text(S33+12,11)),0),LINETHICK0;
S4:=F10FIND(' QFII持股 |',1);
QFII持股:strtonum(f10text(S4+12,11)),LINETHICK0;
S44:=F10FIND('占流通A比 |',S4);
QFII占比:if(QFII持股>0,strtonum(f10text(S44+n,11)),0),LINETHICK0;
S5:=F10FIND(' 券商持股 |',1);
券商持股:strtonum(f10text(S5+12,11)),LINETHICK0;
S55:=F10FIND('占流通A比 |',S5);
券商占比:if(券商持股>0,strtonum(f10text(S55+n,11)),0),LINETHICK0;
S6:=F10FIND(' 社保持股 |',1);
社保持股:strtonum(f10text(S6+12,11)),LINETHICK0;
S66:=F10FIND('占流通A比 |',S6);
社保占比:if(社保持股>0,strtonum(f10text(S66+n,11)),0),LINETHICK0;
S7:=F10FIND(' 保险持股 |',1);
保险持股:strtonum(f10text(S7+12,11)),colorcyan,LINETHICK0;
S77:=F10FIND('占流通A比 |',S7);
保险占比:if(保险持股>0,strtonum(f10text(S77+n,11)),0),LINETHICK0;
S8:=F10FIND(' 信托持股 |',1);
信托持股:strtonum(f10text(S8+12,11)),LINETHICK0,colorcyan;
S88:=F10FIND('占流通A比 |',S8);
信托占比:if(信托持股>0,strtonum(f10text(S88+n,11)),0),LINETHICK0;
机构持股:基金持股+QFII持股+券商持股+社保持股+保险持股+信托持股,colorcyan,LINETHICK0;
机构占比:基金占比+QFII占比+券商占比+社保占比+保险占比+信托占比,colorcyan,LINETHICK0;

DRAWTEXTEX(c,1,300,10,'基金持股:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,300,160,'QFII持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,310,'券商持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,460,'社保持股:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,300,610,'保险持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,760,'信托持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,900,'机构持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,400,10,NUMTOSTR(基金持股,0)),ColorAFFF00;
DRAWTEXTEX(c,1,400,160,NUMTOSTR(QFII持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,310,NUMTOSTR(券商持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,460,NUMTOSTR(社保持股,0)),ColorAFFF00;
DRAWTEXTEX(c,1,400,610,NUMTOSTR(保险持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,760,NUMTOSTR(信托持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,900,NUMTOSTR(机构持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,500,10,'基金占比:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,500,160,'QFII占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,310,'券商占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,460,'社保占比:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,500,610,'保险占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,760,'信托占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,900,'机构占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,600,10,NUMTOSTR(基金占比,2)),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,600,160,NUMTOSTR(QFII占比,2)),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,600,310,NUMTOSTR(券商占比,2)),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(c,1,600,460,NUMTOSTR(社保占比,2)),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,600,610,NUMTOSTR(保险占比,2)),LINETHICK2,Color007DFF;
DRAWTEXTEX(c,1,600,760,NUMTOSTR(信托占比,2)),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(c,1,600,910,NUMTOSTR(机构占比,2)),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(CLOSE,1,100,10,STKLABEL+'     '+STKNAME+''),colorFFFF;
DRAWTEXTEX(c,1,100,160,'【数据更新:'+NUMTOSTR(季,0)+' 】'),COLORccffff;1.gif 

【本文仅提供源码,并无公式下载,如需公式,请参照下面公式编辑录像自行编辑成公式】


[url=http://www.70822.com/soft/sort013/sort02/down-13627.html]机构持股-港澳[/url]

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明:本站所有股票公式软件资料均网上公开收集,如侵权请联系删帖。站内所有广告,均与本站无关!
Copyright © 2003-2024 70822.Com. All Rights Reserved .
页面执行时间:31.25000 毫秒