INPUT:M(0),X1(14);
y:=15;y1:=15; x2:=x1+370;
股东1:=PFSTR(4001,M); 股东2:=PFSTR(4011,M); 股东3:=PFSTR(4021,M);
股东4:=PFSTR(4031,M); 股东5:=PFSTR(4041,M); 股东6:=PFSTR(4051,M);
股东7:=PFSTR(4061,M); 股东8:=PFSTR(4071,M); 股东9:=PFSTR(4081,M);
股东10:=PFSTR(4091,M);
gg:=PFFIN(4002,M)/10000; gg1:=PFFIN(4012,M)/10000;gg2:=PFFIN(4022,M)/10000;
gg3:=PFFIN(4032,M)/10000;gg4:=PFFIN(4042,M)/10000;gg5:=PFFIN(4052,M)/10000;
gg6:=PFFIN(4062,M)/10000;gg7:=PFFIN(4072,M)/10000;gg8:=PFFIN(4082,M)/10000;
gg9:=PFFIN(4092,M)/10000;
十大股东合计:gg+gg1+gg2+gg3+gg4+gg5+gg6+gg7+gg8+gg9,LINETHICK0;
bn:=BARSLAST(PFFINTERM(4)<>ref(PFFINTERM(4),1));
大股东变动％:(ref(十大股东合计,bn)/ref(十大股东合计,bn+1)-1)*100;
日期:ref(date,bn),LINETHICK0,PRECIS0;
均价:ma(c,bn+1),LINETHICK0;
ga:=PFSTR(4004,M);ga1:=PFSTR(4014,M);ga2:=PFSTR(4024,M);
ga3:=PFSTR(4034,M);ga4:=PFSTR(4044,M);ga5:=PFSTR(4054,M);
ga6:=PFSTR(4064,M);ga7:=PFSTR(4074,M);ga8:=PFSTR(4084,M);
ga9:=PFSTR(4094,M);
DRAWTEXTABS(x1,1,' 股票名称:'+'【'+STKLABEL+' '+STKNAME+'】 提示：请按“←→”开启光标'),COLOR00FFFF;
DRAWTEXTABS(x2,1, '持股数（万股）持股比例（%）增减情况(万股)'),Color8080FF;
DRAWTEXTABS(x1,y,' 1.'+股东1),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*1,' 2.'+股东2),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*2,' 3.'+股东3),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*3,' 4.'+股东4),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*4,' 5.'+股东5),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*5,' 6.'+股东6),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*6,' 7.'+股东7),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*7,' 8.'+股东8),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*8,' 9.'+股东9),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*9,'10.'+股东10),COLOR00FF00;
DRAWTEXTABS(x2,y1, ' '+strleft(str(gg)+' ',13)+PFFIN(4003,M)+' '+ga),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*1,' '+strleft(str(gg1)+' ',13)+PFFIN(4013,M)+' '+ga1),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*2,' '+strleft(str(gg2)+' ',13)+PFFIN(4023,M)+' '+ga2),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*3,' '+strleft(str(gg3)+' ',13)+PFFIN(4033,M)+' '+ga3),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*4,' '+strleft(str(gg4)+' ',13)+PFFIN(4043,M)+' '+ga4),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*5,' '+strleft(str(gg5)+' ',13)+PFFIN(4053,M)+' '+ga5),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*6,' '+strleft(str(gg6)+' ',13)+PFFIN(4063,M)+' '+ga6),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*7,' '+strleft(str(gg7)+' ',13)+PFFIN(4073,M)+' '+ga7),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*8,' '+strleft(str(gg8)+' ',13)+PFFIN(4083,M)+' '+ga8),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*9,' '+strleft(str(gg9)+' ',13)+PFFIN(4093,M)+' '+ga9),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*10,' 十大股东合计: '+十大股东合计+' 持股比 '+(十大股东合计/(100*gg/PFFIN(4003,M)))*100+'% 股东人数: '+STR(PFFIN(4253,M))
+' 与上期增加:'+STR(PFFIN(4253,M)-PFFIN(4253,M+1))+'户 人均持股: '+STR(PFFIN(4254,M))
+' 增加持股: '+STR(PFFIN(4254,M)-PFFIN(4254,M+1))+'户'),COLOR00AAFF;
x:=BARSLAST(DISPSTATUS=1)+1;
bb:='<*t=0092F7*>'+datestr(date)+'十大股东\n<*c=ffffff*> 1.'+股东1+' ' + '<*c=0088ff*> '+ga+'\n2.'+股东2+' '+ga1+'\n3.'+股东3+' '+ga2+'\n4.'
+股东4+' '+ga3+'\n5.'+股东5+' '+ga4+'\n6.'+股东6+' '+ga5+'\n7.'+股东7+
' '+ga6+'\n8.'+股东8+' '+ga7+'\n9.'+股东9+' '+ga8+'\n10.'+股东10+' '+ga9;
drawflagtext(1,1,bb);
公式下载地址：
光标历史.rar
(11.98 KB, 下载次数: 0)
|
发表于 2011-9-8 17:06:48
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
有用
没用