也可以做成自定义数据,具体怎么发挥看自己了。
a1:=0;IF PFFIN(4251,0)>0 Then begin a1:=PFFIN(4251,0);
end;
a:=a1;
大股东比率:=IF(PFFIN(4003,0)>5 and STRFIND(PFSTR(4006,0),'A',1)>2,PFFIN(4003,0),0);
二股东比率:=IF(PFFIN(4013,0)>5 and STRFIND(PFSTR(4016,0),'A',1)>2,PFFIN(4013,0),0);
三股东比率:=IF(PFFIN(4023,0)>5 and STRFIND(PFSTR(4026,0),'A',1)>2,PFFIN(4023,0),0);
四股东比率:=IF(PFFIN(4033,0)>5 and STRFIND(PFSTR(4036,0),'A',1)>2,PFFIN(4033,0),0);
五股东比率:=IF(PFFIN(4043,0)>5 and STRFIND(PFSTR(4046,0),'A',1)>2,PFFIN(4043,0),0);
六股东比率:=IF(PFFIN(4053,0)>5 and STRFIND(PFSTR(4056,0),'A',1)>2,PFFIN(4053,0),0);
七股东比率:=IF(PFFIN(4063,0)>5 and STRFIND(PFSTR(4066,0),'A',1)>2,PFFIN(4063,0),0);
八股东比率:=IF(PFFIN(4073,0)>5 and STRFIND(PFSTR(4076,0),'A',1)>2,PFFIN(4073,0),0);
九股东比率:=IF(PFFIN(4083,0)>5 and STRFIND(PFSTR(4086,0),'A',1)>2,PFFIN(4083,0),0);
十股东比率:=IF(PFFIN(4093,0)>5 and STRFIND(PFSTR(4096,0),'A',1)>2,PFFIN(4093,0),0);
流通系数:(100-大股东比率-二股东比率-三股东比率-四股东比率-五股东比率-六股东比率-七股东比率-八股东比率-九股东比率-十股东比率)/100,LINETHICK0;
实际流通盘:=流通系数*CAPITAL/100;