{历年股东数—适用于港澳资讯F10}
流通盘: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))))),LINETHICK;
IF NOT(F10=4) THEN BEGIN
DRAWTEXT(SYSPARAM(2)+20=BARPOS,15,'本公式不适合该种F10资料。'),COLOREEFF;
EXIT;
END;
//F10数据查找
QSW:=F10FIND('【2.股东户数',F10FIND('【2.股东户数',100)+30);
DHW:=F10FIND('【3.机构持股明细】',QSW+200);//尾部位置
gdstar:=F10FIND('股东户数',QSW);{从QSW开始，查找字符串"股东户数"}
IF gdstar<0 THEN EXIT;
HK:=72;//表格行宽
HS:=36;//设定最大计算行数
LS:=16;
VARIABLE:DH[hs]=0,DD[hs]=0,HH[hs]=0;
{取对应的数据资料的字符串，并转换字符串为数值}
for i=1 to hs do begin
DH[i]:=F10FIND('-',IF(i=1,gdstar,DH[i-1]+HK))-4;
IF DH[i]>DHW THEN BREAK;
DD[i]:=STRTONUM(STRRIGHT(F10TEXT(DH[i],10),8)-'-');
DD[i]:=DD[i]+IF(DD[i]<900000,1000000,0);
HH[i]:=STRTONUM(LTRIM(F10TEXT(DH[i]+LS,12)));
IF HH[i]>0 THEN WT:=MIN(HH[i],HH[i-1]);
end;
股东户数: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],if(date<dd[34] and date>=dd[35] AND HH[35]>0,hh[35],if(date<dd[35] and date>=dd[36] AND HH[36]>0,hh[36],
WT)))))))))))))))))))))))))))))))))))),COLORFFDDAA;
股东±%:(hh[1]/hh[2]-1)*100,LINETHICK;
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;
DRAWNUMBER(cross(date,DD[36]) AND DH[36]>0,HH[36],HH[36],0),colorFF00;
//{点击看本软件截图：58股票 公式网 http://www. 58gu. com 整理} |
