为了满足朋友需要,现将自编自用的大智慧《个人股东》选股公式原码交流出来;
g1:=PFFIN(4002,0)/100;{取股东持股数}
g2:=PFFIN(4012,0)/100;
g3:=PFFIN(4022,0)/100;
g4:=PFFIN(4032,0)/100;
g5:=PFFIN(4042,0)/100;
g6:=PFFIN(4052,0)/100;
g7:=PFFIN(4062,0)/100;
g8:=PFFIN(4072,0)/100;
g9:=PFFIN(4082,0)/100;
g10:=PFFIN(4092,0)/100;
fl:=STRCMP(STRLEFT(PFstr(4001,0),8),STRRIGHT(PFstr(4001,0),8))=0;{求自然人股东}
f2:=STRCMP(STRLEFT(PFstr(4011,0),8),STRRIGHT(PFstr(4011,0),8))=0;
f3:=STRCMP(STRLEFT(PFstr(4021,0),8),STRRIGHT(PFstr(4021,0),8))=0;
f4:=STRCMP(STRLEFT(PFstr(4031,0),8),STRRIGHT(PFstr(4031,0),8))=0;
f5:=STRCMP(STRLEFT(PFstr(4041,0),8),STRRIGHT(PFstr(4041,0),8))=0;
f6:=STRCMP(STRLEFT(PFstr(4051,0),8),STRRIGHT(PFstr(4051,0),8))=0;
f7:=STRCMP(STRLEFT(PFstr(4061,0),8),STRRIGHT(PFstr(4061,0),8))=0;
f8:=STRCMP(STRLEFT(PFstr(4071,0),8),STRRIGHT(PFstr(4071,0),8))=0;
f9:=STRCMP(STRLEFT(PFstr(4081,0),8),STRRIGHT(PFstr(4081,0),8))=0;
f10:=STRCMP(STRLEFT(PFstr(4091,0),8),STRRIGHT(PFstr(4091,0),8))=0;
ff:fl+f2+f3+f4+f5+f6+f7+f8+f9+f10;{自然人股东数}