- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-10-26
|
|
改一下王照华的内在价值:原式适用于wind资讯,现可用于港澳资讯
不过,正如作者所说,没多大用途,多一道屏障而已;
{内在价值--仅用 港澳资讯)}
GDT2:=FINANCE(0);//报表最新日期
XXx:=STRTONUM(STRRIGHT(NUMTOSTR(FINANCE(0),0),2));//取右两位数
Nn:IF(XXx>11 OR XXx<3,1,IF(BETWEEN(XXx,2.9,6),4,IF(BETWEEN(XXx,5.9,9),2,4/3))),LINETHICK;
if Nn=0 then exit;
{财务}
主营收入:=FINANCE(20); 税后利润:=FINANCE(29); 每股收益:=FINANCE(33); 净资产:=FINANCE(34);
净资产收益率:=IF(每股收益>0,FINANCE(37),0);
指数值:="1A0001$close",LINETHICK;{引用指数}
NJSL:=IF(净资产收益率>0,净资产收益率*Nn,0),LINETHICK;//估计当年净资产收益率
均衡定价:=(净资产*0.32+3.8+每股收益*3.9*Nn)*指数值/1000;
YL_1:=F10FIND('【经营与发展能力】',100),LINETHICK0;
YL_2:=F10FIND('税后利润增长率(%)',YL_1+100),LINETHICK0;
L_z0:=LTRIM(RTRIM(F10TEXT(YL_2+20,10)-' ')),LINETHICK;{今年} A_1:STRTONUM(L_z0),LINETHICK;//当年
L_z1:=LTRIM(RTRIM(F10TEXT(YL_2+32,10)-' ')),LINETHICK;{去年} A_2:STRTONUM(L_z1),LINETHICK;
L_z2:=LTRIM(RTRIM(F10TEXT(YL_2+44,10)-' ')),LINETHICK;{前年} A_3:STRTONUM(L_z2),LINETHICK;
L_z3:=LTRIM(RTRIM(F10TEXT(YL_2+56,10)-' ')),LINETHICK;{大前年} A_4:STRTONUM(L_z3),LINETHICK;
综合性系数:=IF(NJSL>36,5.7,IF(NJSL>35 and NJSL<=36,5.65,IF(NJSL>34 and NJSL<35,5.5,IF(NJSL>33 and NJSL<=34,5.34,IF(NJSL>32 and NJSL<=33,5.18,
IF(NJSL>31 and NJSL<=32,5.02,IF(NJSL>=30 and NJSL<=31,4.87,IF(NJSL>29 and NJSL<=30,4.71,IF(NJSL>28 and NJSL<=29,4.55,IF(NJSL>27 and NJSL<=28,4.4,
IF(NJSL>26 and NJSL<=27,4.24,IF(NJSL>25 and NJSL<=26,4.09,IF(NJSL>24 and NJSL<=25,3.92,IF(NJSL>23 and NJSL<=24,3.77,IF(NJSL>22 and NJSL<=23,3.61,
IF(NJSL>21 and NJSL<=22,3.45,IF(NJSL>20 and NJSL<=21,3.3,IF(NJSL>19 and NJSL<=20,3.14,IF(NJSL>18 and NJSL<=19,2.98,IF(NJSL>17 and NJSL<=18,2.83,
IF(NJSL>16 and NJSL<=17,2.67,IF(NJSL>15 and NJSL<=16,2.51,IF(NJSL>14 and NJSL<=15,2.35,IF(NJSL>13 and NJSL<=14,2.2,IF(NJSL>12 and NJSL<=13,2.04,
IF(NJSL>11 and NJSL<=12,1.89,IF(NJSL>10 and NJSL<=11,1.73,IF(NJSL>9 and NJSL<10,1.57,IF(NJSL>8 and NJSL<=9,1.41,IF(NJSL>7 and NJSL<=8,1.26,
IF(NJSL>6 and NJSL<=7,1.1,IF(NJSL>5 and NJSL<=6,0.94,IF(NJSL>4 and NJSL<=5,0.74,IF(NJSL>3 and NJSL<=4,0.62,IF(NJSL>2 and NJSL<=3,0.47,
IF(NJSL<=2,0.3,0.3)))))))))))))))))))))))))))))))))))),LINETHICK;
{排序}
价值排序:(A_1+A_2+A_3+A_4)/4*综合性系数,LINETHICK,PRECISION2,COLORRED;
潜力排序:IF(C-均衡定价<=0,ABS(C-均衡定价),0),LINETHICK,PRECISION2,COLORGREEN; |
|
|