软件名称：[B]历年持股（源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：0 Bytes
官方主页：Home Page
更新时间：2009-11-02 08:55:35
软件简介:

公式如下：
流通盘:CAPITAL/100,LINETHICK;
//F10数据查找
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯就是',1)>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,IF(F10FIND('维赛特',1)>0,4,IF(F10FIND('☆   ◇港澳资讯',1)>0,5,0)))));
DRAWTEXT(SYSPARAM(2)+20=BARPOS AND F10=0,15,'本公式不适合该种F10资料。'),COLOREEFF;
IF F10=0 THEN EXIT;
QSW:=IF(F10=2,F10FIND('【1:主力运作】',100),IF(F10=3,F10FIND('控盘情况:',1),IF(F10=4,F10FIND('（三）历年人均持股情况',1),IF(F10=5,F10FIND('【1.机构持股汇总】   ',1000),F10FIND('◆ 控盘情况 ◆',100)))));
QSW:=IF(F10=5,F10FIND('【2.股东户数',QSW),QSW);

gdstar:=F10FIND(IF(NOT(F10=4),'户均持股','人均持股'),QSW);{从QSW开始，查找字符串"A股人均持"}
IF gdstar<0 THEN EXIT;
LS:=IF(F10=2,28,IF(F10=5,30,41));
VARIABLE:DH[35]=0,DD[35]=0,HH[35]=0;
dh[1]:=F10FIND('-',gdstar)-4;{从gdstar+100字节开始，查找字符串"200"}
dd[1]:=STRTONUM(STRRIGHT(F10TEXT(dh[1],10),8)-'-')+1000000;hh[1]:=STRTONUM(LTRIM(F10TEXT(dh[1]+LS,10))),LINETHICK;
DHW:=F10FIND(IF(NOT(F10=4),'└','┴'),dh[1]+500);//尾部位置

{取对应的数据资料的字符串，并转换字符串为数值}
LS:=IF(F10=5,26,LS);
for i=2 to 35 do begin
   DH:=F10FIND(IF(F10=2,'│','-'),dh[i-1]+74);
   IF DH>DHW THEN BREAK;
   DD:=STRTONUM(STRRIGHT(F10TEXT(dh+IF(F10=2,2,-4),10),8)-'-');
   DD:=DD+IF(DD<900000,1000000,0);
   HH:=STRTONUM(LTRIM(F10TEXT(dh+LS,10)));
   IF HH>0 THEN WT:=MIN(HH,HH[i-1]);
end;

DRAWNUMBER(CROSS(DATE,DD[1]) AND DH[1]<DHW,HH[1],HH[1],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[2]) AND DH[2]<DHW,HH[2],HH[2],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[3]) AND DH[3]<DHW,HH[3],HH[3],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[4]) AND DH[4]<DHW,HH[4],HH[4],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[5]) AND DH[5]<DHW,HH[5],HH[5],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[6]) AND DH[6]<DHW,HH[6],HH[6],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[7]) AND DH[7]>0,HH[7],HH[7],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[8]) AND DH[8]>0,HH[8],HH[8],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[9]) AND DH[9]>0,HH[9],HH[9],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[10]) AND DH[10]>0,HH[10],HH[10],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[11]) AND DH[11]>0,HH[11],HH[11],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[12]) AND DH[12]>0,HH[12],HH[12],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[13]) AND DH[13]>0,HH[13],HH[13],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[14]) AND DH[14]>0,HH[14],HH[14],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[15]) AND DH[15]>0,HH[15],HH[15],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[16]) AND DH[16]>0,HH[16],HH[16],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[17]) AND DH[17]>0,HH[17],HH[17],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[18]) AND DH[18]>0,HH[18],HH[18],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[19]) AND DH[19]>0,HH[19],HH[19],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[20]) AND DH[20]>0,HH[20],HH[20],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[21]) AND DH[21]>0,HH[21],HH[21],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[22]) AND DH[22]>0,HH[22],HH[22],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[23]) AND DH[23]>0,HH[23],HH[23],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[24]) AND DH[24]>0,HH[24],HH[24],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[25]) AND DH[25]>0,HH[25],HH[25],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[26]) AND DH[26]>0,HH[26],HH[26],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[27]) AND DH[27]>0,HH[27],HH[27],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[28]) AND DH[28]>0,HH[28],HH[28],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[29]) AND DH[29]>0,HH[29],HH[29],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[30]) AND DH[30]>0,HH[30],HH[30],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[31]) AND DH[31]>0,HH[31],HH[31],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[32]) AND DH[32]>0,HH[32],HH[32],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[33]) AND DH[33]>0,HH[33],HH[33],0),colorFFFF;
DRAWNUMBER(CROSS(DATE,DD[34]) AND DH[34]>0,HH[34],HH[34],0),colorFF00;
DRAWNUMBER(CROSS(DATE,DD[35]) AND DH[35]>0,HH[35],HH[35],0),colorFFFF;

户均持股:IF(DATE>=dd[1],hh[1],IF(DATE<dd[1] and DATE>=dd[2],hh[2],IF(DATE<dd[2] and DATE>=dd[3],hh[3],
  IF(DATE<dd[3] and DATE>=dd[4],hh[4],IF(DATE<dd[4] and DATE>=dd[5],hh[5],IF(DATE<dd[5] and DATE>=dd[6],hh[6],
  IF(DATE<dd[6] and DATE>=dd[7] AND HH[7]>0,hh[7],IF(DATE<dd[7] and DATE>=dd[8] AND HH[8]>0,hh[8],IF(DATE<dd[8] and DATE>=dd[9] AND HH[9]>0,hh[9],
  IF(DATE<dd[9] and DATE>=dd[10] AND HH[10]>0,hh[10],IF(DATE<dd[10] and DATE>=dd[11] AND HH[11]>0,hh[11],IF(DATE<dd[11] and DATE>=dd[12] AND HH[12]>0,hh[12],
  IF(DATE<dd[12] and DATE>=dd[13] AND HH[13]>0,hh[13],IF(DATE<dd[13] and DATE>=dd[14] AND HH[14]>0,hh[14],IF(DATE<dd[14] and DATE>=dd[15] AND HH[15]>0,hh[15],
  IF(DATE<dd[15] and DATE>=dd[16] AND HH[16]>0,hh[16],IF(DATE<dd[16] and DATE>=dd[17] AND HH[17]>0,hh[17],IF(DATE<dd[17] and DATE>=dd[18] AND HH[18]>0,hh[18],
  IF(DATE<dd[18] and DATE>=dd[19] AND HH[19]>0,hh[19],IF(DATE<dd[19] and DATE>=dd[20] AND HH[20]>0,hh[20],IF(DATE<dd[20] and DATE>=dd[21] AND HH[21]>0,hh[21],
  IF(DATE<dd[21] and DATE>=dd[22] AND HH[22]>0,hh[22],IF(DATE<dd[22] and DATE>=dd[23] AND HH[23]>0,hh[23],IF(DATE<dd[23] and DATE>=dd[24] AND HH[24]>0,hh[24],
  IF(DATE<dd[24] and DATE>=dd[25] AND HH[25]>0,hh[25],IF(DATE<dd[25] and DATE>=dd[26] AND HH[26]>0,hh[26],IF(DATE<dd[26] and DATE>=dd[27] AND HH[27]>0,hh[27],
  IF(DATE<dd[27] and DATE>=dd[28] AND HH[28]>0,hh[28],IF(DATE<dd[28] and DATE>=dd[29] AND HH[29]>0,hh[29],IF(DATE<dd[29] and DATE>=dd[30] AND HH[30]>0,hh[30],
  IF(DATE<dd[30] and DATE>=dd[31] AND HH[31]>0,hh[31],IF(DATE<dd[31] and DATE>=dd[32] AND HH[32]>0,hh[32],IF(DATE<dd[32] and DATE>=dd[33] AND HH[33]>0,hh[33],
  IF(DATE<dd[33] and DATE>=dd[34] AND HH[34]>0,hh[34],WT)))))))))))))))))))))))))))))))))),COLORFF00FF;

//  IF(DATE<dd[27] and DATE>=dd[28] AND HH[28]>0,hh[28],WT)))))))))))))))))))))))))))),COLORFF00FF;

[url=http://www.70822.com/soft/sort013/sort02/down-14081.html]历年持股（源码）[/url]