冰恋许明娣肉畜:增加“十大流通股东(包括自然人判断)”副图公式
来源:百度文库 编辑:偶看新闻 时间:2024/07/04 22:53:23
副图:一个可以显示个人股东名字的公式 比如前十大流通股东中有8名是自然人 能够在公式界面显示出这8名个人股东的名字 INPUT:X1(500),Y1(150),Y(80),M(0);
股东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);
flag1:=ABS(ABS(STRCMP( STRLEFT(PFstr(4001,0),8),STRRIGHT(PFstr(4001,0),8)))-1);
flag2:=ABS(ABS(STRCMP( STRLEFT(PFstr(4011,0),8),STRRIGHT(PFstr(4011,0),8)))-1);
flag3:=ABS(ABS(STRCMP( STRLEFT(PFstr(4021,0),8),STRRIGHT(PFstr(4021,0),8)))-1);
flag4:=ABS(ABS(STRCMP( STRLEFT(PFstr(4031,0),8),STRRIGHT(PFstr(4031,0),8)))-1);
flag5:=ABS(ABS(STRCMP( STRLEFT(PFstr(4041,0),8),STRRIGHT(PFstr(4041,0),8)))-1);
flag6:=ABS(ABS(STRCMP( STRLEFT(PFstr(4051,0),8),STRRIGHT(PFstr(4051,0),8)))-1);
flag7:=ABS(ABS(STRCMP( STRLEFT(PFstr(4061,0),8),STRRIGHT(PFstr(4061,0),8)))-1);
flag8:=ABS(ABS(STRCMP( STRLEFT(PFstr(4071,0),8),STRRIGHT(PFstr(4071,0),8)))-1);
flag9:=ABS(ABS(STRCMP( STRLEFT(PFstr(4081,0),8),STRRIGHT(PFstr(4081,0),8)))-1);
flag10:=ABS(ABS(STRCMP( STRLEFT(PFstr(4091,0),8),STRRIGHT(PFstr(4091,0),8)))-1);
自然人股东数:=flag1+flag2+flag3+flag4+flag5+flag6+flag7+flag8+flag9+flag10;
DRAWTEXTREL(20,20,'股票名称:'+'【'+STKLABEL+' '+STKNAME+'】'),COLOR00FFFF;DRAWTEXTREL(X1,40,'增减情况 '),COLORFF00FF;DRAWTEXTREL(X1+100,40,'持股数(万股)'),Color8080FF;DRAWTEXTREL(X1+250,40,'持股比例(%)'),ColorBFBFFF;
DRAWTEXTREL(20,y1,'1.'+股东1),COLOR00FF00;DRAWTEXTREL(X1,y1,PFSTR(4004,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1,STR(PFFIN(4002,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1,STR(PFFIN(4003,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*1,'2.'+股东2),COLOR00FF00;DRAWTEXTREL(X1,y1+y*1,PFSTR(4014,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*1,STR(PFFIN(4012,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*1,STR(PFFIN(4013,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*2,'3.'+股东3),COLOR00FF00;DRAWTEXTREL(X1,y1+y*2,PFSTR(4024,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*2,STR(PFFIN(4022,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*2,STR(PFFIN(4023,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*3,'4.'+股东4),COLOR00FF00;DRAWTEXTREL(X1,y1+y*3,PFSTR(4034,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*3,STR(PFFIN(4032,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*3,STR(PFFIN(4033,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*4,'5.'+股东5),COLOR00FF00;DRAWTEXTREL(X1,y1+y*4,PFSTR(4044,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*4,STR(PFFIN(4042,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*4,STR(PFFIN(4043,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*5,'6.'+股东6),COLOR00FF00;DRAWTEXTREL(X1,y1+y*5,PFSTR(4054,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*5,STR(PFFIN(4052,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*5,STR(PFFIN(4053,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*6,'7.'+股东7),COLOR00FF00;DRAWTEXTREL(X1,y1+y*6,PFSTR(4064,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*6,STR(PFFIN(4062,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*6,STR(PFFIN(4063,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*7,'8.'+股东8),COLOR00FF00;DRAWTEXTREL(X1,y1+y*7,PFSTR(4074,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*7,STR(PFFIN(4072,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*7,STR(PFFIN(4073,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*8,'9.'+股东9),COLOR00FF00;DRAWTEXTREL(X1,y1+y*8,PFSTR(4084,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*8,STR(PFFIN(4082,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*8,STR(PFFIN(4083,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*9,'10.'+股东10),COLOR00FF00;DRAWTEXTREL(X1,y1+y*9,PFSTR(4094,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*9,STR(PFFIN(4092,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*9,STR(PFFIN(4093,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*10,'自然人股东数: '+STR(自然人股东数)+' 流通股东人数: '+STR(PFFIN(4253,M))+' 与上期相比增减:'+STR(PFFIN(4253,M)-PFFIN(4253,M+1))+' 人均持流通股: '+STR(PFFIN(4254,M))+' 与上期相比人均持股增减: '+STR(PFFIN(4254,M)-PFFIN(4254,M+1))),COLOR00FFFF;QQ2586104537空间主页 笔者--> "股票实例操作"
股东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);
flag1:=ABS(ABS(STRCMP( STRLEFT(PFstr(4001,0),8),STRRIGHT(PFstr(4001,0),8)))-1);
flag2:=ABS(ABS(STRCMP( STRLEFT(PFstr(4011,0),8),STRRIGHT(PFstr(4011,0),8)))-1);
flag3:=ABS(ABS(STRCMP( STRLEFT(PFstr(4021,0),8),STRRIGHT(PFstr(4021,0),8)))-1);
flag4:=ABS(ABS(STRCMP( STRLEFT(PFstr(4031,0),8),STRRIGHT(PFstr(4031,0),8)))-1);
flag5:=ABS(ABS(STRCMP( STRLEFT(PFstr(4041,0),8),STRRIGHT(PFstr(4041,0),8)))-1);
flag6:=ABS(ABS(STRCMP( STRLEFT(PFstr(4051,0),8),STRRIGHT(PFstr(4051,0),8)))-1);
flag7:=ABS(ABS(STRCMP( STRLEFT(PFstr(4061,0),8),STRRIGHT(PFstr(4061,0),8)))-1);
flag8:=ABS(ABS(STRCMP( STRLEFT(PFstr(4071,0),8),STRRIGHT(PFstr(4071,0),8)))-1);
flag9:=ABS(ABS(STRCMP( STRLEFT(PFstr(4081,0),8),STRRIGHT(PFstr(4081,0),8)))-1);
flag10:=ABS(ABS(STRCMP( STRLEFT(PFstr(4091,0),8),STRRIGHT(PFstr(4091,0),8)))-1);
自然人股东数:=flag1+flag2+flag3+flag4+flag5+flag6+flag7+flag8+flag9+flag10;
DRAWTEXTREL(20,20,'股票名称:'+'【'+STKLABEL+' '+STKNAME+'】'),COLOR00FFFF;DRAWTEXTREL(X1,40,'增减情况 '),COLORFF00FF;DRAWTEXTREL(X1+100,40,'持股数(万股)'),Color8080FF;DRAWTEXTREL(X1+250,40,'持股比例(%)'),ColorBFBFFF;
DRAWTEXTREL(20,y1,'1.'+股东1),COLOR00FF00;DRAWTEXTREL(X1,y1,PFSTR(4004,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1,STR(PFFIN(4002,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1,STR(PFFIN(4003,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*1,'2.'+股东2),COLOR00FF00;DRAWTEXTREL(X1,y1+y*1,PFSTR(4014,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*1,STR(PFFIN(4012,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*1,STR(PFFIN(4013,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*2,'3.'+股东3),COLOR00FF00;DRAWTEXTREL(X1,y1+y*2,PFSTR(4024,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*2,STR(PFFIN(4022,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*2,STR(PFFIN(4023,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*3,'4.'+股东4),COLOR00FF00;DRAWTEXTREL(X1,y1+y*3,PFSTR(4034,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*3,STR(PFFIN(4032,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*3,STR(PFFIN(4033,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*4,'5.'+股东5),COLOR00FF00;DRAWTEXTREL(X1,y1+y*4,PFSTR(4044,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*4,STR(PFFIN(4042,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*4,STR(PFFIN(4043,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*5,'6.'+股东6),COLOR00FF00;DRAWTEXTREL(X1,y1+y*5,PFSTR(4054,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*5,STR(PFFIN(4052,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*5,STR(PFFIN(4053,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*6,'7.'+股东7),COLOR00FF00;DRAWTEXTREL(X1,y1+y*6,PFSTR(4064,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*6,STR(PFFIN(4062,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*6,STR(PFFIN(4063,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*7,'8.'+股东8),COLOR00FF00;DRAWTEXTREL(X1,y1+y*7,PFSTR(4074,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*7,STR(PFFIN(4072,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*7,STR(PFFIN(4073,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*8,'9.'+股东9),COLOR00FF00;DRAWTEXTREL(X1,y1+y*8,PFSTR(4084,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*8,STR(PFFIN(4082,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*8,STR(PFFIN(4083,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*9,'10.'+股东10),COLOR00FF00;DRAWTEXTREL(X1,y1+y*9,PFSTR(4094,M)),COLORFF00FF;DRAWTEXTREL(X1+100,y1+y*9,STR(PFFIN(4092,M)/10000)),Color8080FF;DRAWTEXTREL(X1+250,y1+y*9,STR(PFFIN(4093,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*10,'自然人股东数: '+STR(自然人股东数)+' 流通股东人数: '+STR(PFFIN(4253,M))+' 与上期相比增减:'+STR(PFFIN(4253,M)-PFFIN(4253,M+1))+' 人均持流通股: '+STR(PFFIN(4254,M))+' 与上期相比人均持股增减: '+STR(PFFIN(4254,M)-PFFIN(4254,M+1))),COLOR00FFFF;QQ2586104537空间主页
怎样判断(副睾丸)发炎???~~~
第二届(2005)中国十大影响力品牌都包括哪些?
中外合资企业经营者有没有包括自然人?
十副春联
精彩春联十副
收集十副对联
收集十副对联
写出十副对联。
包括《玻璃杯》在内的十大校园歌曲分别是什么?
谁能告诉我十副春联?(急用!)
谁知道春联呀?十副
谁知道春联呀?十副
《华夏online》十大氏族预闯新区大门 氏族奖励连连增加?
《华夏Online》十大氏族预闯新区大门 氏族奖励连连增加?
如何在局域网CS中(包括龙珠版)增加电脑?
自然数包括什么?判断:整数都是自然数。()
中国十大品牌古筝是哪些?里面包括了金声古筝吗?
请大家帮我收集一下 今年的十大(十大时间 十大创新。。。)
世界十大名人是谁(联合国教科文组织)
NBA 十大弹跳王(现役)
像文曲星副送的有两个螺丝的下载线如何与电脑连接(包括台式,笔记本)?
十大垃圾食品是那十大?
英语中动介短语和动副短语如何判断
家里电费增加,如何判断是否漏电?