- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-4-4
|
|
原帖由 lymanqun 于 2007-4-10 09:32 发表 
你要套取我的欧奈尔选股公式的算法，哈哈哈。。。，还是算了吧，仅把公式中的涉及的项目说一下：
基本面：主营业务增长率，净利润增长率，税后利润增长率，资产负债率，现金流，三项费用占主营业务利润比率 ...
依然大哥和小弟开玩笑了，我只是想做个完善的基本面指标而已，呵呵！这是你的知识产权，告诉我公式中所涉及的项目已经很感谢了！！
严重考验你的机器性能，:*22*: :*22*: ！建议你分开使用，下面的是总的指标，自动分析当期报季日期（预定义日期需要自己手动修改）自动选择分拆模块进行分拆统计，我随后整理出分季度的，运行非常快，大智慧还是不如飞狐，如果在飞狐中运行真是快。
指标中的数据是按照依然大哥提出的数据全部提取出来了，最新一季的主营业务收入同环比、主营业务利润率同环比、净利润增长率同环比都可以进行排序（其实每季都可以，就是太占地方了，哈哈）！
{大智慧L2--港澳F10基本面统计数据}
lncwzbwz:=f10find('历年简要财务指标',1);
{报季时间}
zyywsrsjwz1:=f10find('每股指标(单位)',lncwzbwz+1);
zyywsrsjwz2:=f10find('每股指标(单位)',zyywsrsjwz1+1);
zyywsrsj1:=f10text(zyywsrsjwz1+20,10);
zyywsrsj2:=f10text(zyywsrsjwz1+32,10);
zyywsrsj3:=f10text(zyywsrsjwz1+44,10);
zyywsrsj4:=f10text(zyywsrsjwz1+56,10);
rq1:=strcmp(zyywsrsj1,'2006-12-31');{对应需要修改的时间是2007年末季报出来，将值改为'2007-12-31'}
rq2:=strcmp(zyywsrsj1,'2006-09-30');{对应需要修改的时间是2007年三季报出来，将值改为'2007-09-30'}
rq3:=strcmp(zyywsrsj1,'2007-06-30');{对应需要修改的时间是2007年二季报出来，将值改为'2007-06-30'}
rq4:=strcmp(zyywsrsj1,'2007-03-31');{对应需要修改的时间是2007年一季报出来，将值改为'2007-03-31'}
if rq1=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-jzcsyl4;
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-jzcsyl4-jzcsyl3;
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl4-jzcsyl3-jzcsyl2;
{取八个季度的主营收入，算出每个季度主营收入增长率的同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz2+56,10));{2005-03-31}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-zyywsr8;{2005-06-30}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-zyywsr7-zyywsr8;{2005-09-30}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6-zyywsr7-zyywsr8;{2005-12-31}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10));{2006-03-31}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4;{2006-06-30}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3-zyywsr4;{2006-09-30}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2-zyywsr3-zyywsr4;{2006-12-31}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比:zyywsrzlv5,linethick0,colorgray,precis2;
{取八个季度主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2005-03-31}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2005-06-30}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7-zyywlr8;{2005-09-30}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6-zyywlr7-zyywlr8;{2005-12-31}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10));{2006-03-31}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4;{2006-06-30}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3-zyywlr4;{2006-09-30}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2-zyywlr3-zyywlr4;{2006-12-31}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(zyywsr8)*100;
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润率环比:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润率同比:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率的同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(jlrwz2+56,10));{2005-03-31}
jlr7:=strtonum(f10text(jlrwz2+44,10))-jlr8;{2005-06-30}
jlr6:=strtonum(f10text(jlrwz2+32,10))-jlr7-jlr8;{2005-09-30}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6-jlr7-jlr8;{2005-12-31}
jlr4:=strtonum(f10text(jlrwz1+56,10));{2006-03-31}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4;{2006-06-30}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3-jlr4;{2006-09-30}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2-jlr3-jlr4;{2006-12-31}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润增长环比:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润增长同比:jlrzlv5,linethick0,colorgray,precis2;
end;
if rq2=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-jzcsyl3;
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl2-jzcsyl3;
{取八个季度的主营收入及时间，算出每个季度同环比增长率}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1480,12));{2004-12-31}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10));{2005-03-31}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-zyywsr7;{2005-06-30}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6-zyywsr7;{2005-09-30}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5-zyywsr6-zyywsr7;{2005-12-31}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10));{2006-03-31}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3;{2006-06-30}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2-zyywsr3;{2006-09-30}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比1:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比1:zyywsrzlv5,linethick0,colorgray,precis2;
{取七个季度主营业务利润率和一个全年主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-12-31}{此处取值欠妥，但是无法取到2004年前3个季度主营业务利润的值。用2004年度的主营业务利润代替}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10));{2005-03-31}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7;{2005-06-30}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6-zyywlr7;{2005-09-30}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5-zyywlr6-zyywlr7;{2005-12-31}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10));{2006-03-31}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3;{2006-06-30}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2-zyywlr3;{2006-09-30}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上。用2004年度的主营业务利润率代替}
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比1:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比1:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润及时间，算出每个季度同比增长率}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1506,12));{2004-12-31}
jlr7:=strtonum(f10text(jlrwz2+44,10));{2005-03-31}
jlr6:=strtonum(f10text(jlrwz2+32,10))-jlr7;{2005-06-30}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6-jlr7;{2005-09-30}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5-jlr6-jlr7;{2005-12-31}
jlr3:=strtonum(f10text(jlrwz1+44,10));{2006-03-31}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3;{2006-06-30}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2-jlr3;{2006-09-30}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比1:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比1:jlrzlv5,linethick0,colorgray,precis2;
end;
if rq3=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10));
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl2;
{取八个季度的主营收入，算出每个季度增长率同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1408,12));{2004-09-30}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-strtonum(f10text(zyywsrwz2+56,10));{2004-12-31}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10));{2005-03-31}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6;{2005-06-30}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5-zyywsr6;{2005-09-30}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4-zyywsr5-zyywsr6;{2005-12-31}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10));{2006-03-31}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2;{2006-06-30}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比2:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比2:zyywsrzlv5,linethick0,colorgray,precis2;
{取六个季度主营业务利润率和1个年度主营业务利润率和1个前三季度的主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-09-30}{此处取值欠妥，但是无法取到2004年前2个季度主营业务利润的值。}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2004-12-31}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10));{2005-03-31}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6;{2005-06-30}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5-zyywlr6;{2005-09-30}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4-zyywlr5-zyywlr6;{2005-12-31}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10));{2006-03-31}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2;{2006-06-30}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上，用2004-09-30前三季度的主营业务利润率代替}
{主营业务利润率环比}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比2:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比2:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1434,12));{2004-09-30}
jlr7:=strtonum(f10text(jlrwz2+44,10))-strtonum(f10text(jlrwz2+56,10));{2004-12-31}
jlr6:=strtonum(f10text(jlrwz2+32,10));{2005-03-31}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6;{2005-06-30}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5-jlr6;{2005-09-30}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4-jlr5-jlr6;{2005-12-31}
jlr2:=strtonum(f10text(jlrwz1+32,10));{2006-03-31}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2;{2006-06-30}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比2:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比2:jlrzlv5,linethick0,colorgray,precis2;
end;
if rq4=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10));
{取八个季度的主营收入，算出每个季度增长率同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1336,12));{2004-06-30}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-strtonum(f10text(zyywsrwz2+56,10));{2004-09-30}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-strtonum(f10text(zyywsrwz2+44,10));{2004-12-31}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10));{2005-03-31}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5;{2005-06-30}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4-zyywsr5;{2005-09-30}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3-zyywsr4-zyywsr5;{2005-12-31}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10));{2006-03-31}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比3:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比3:zyywsrzlv5,linethick0,colorgray,precis2;
{取七个季度主营业务利润率和1个半年的主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-06-30}{此处取值欠妥，但是无法取到2004年一季度主营业务利润的值。}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2004-09-30}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7-zyywlr8;{2004-12-31}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10));{2005-03-31}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5;{2005-06-30}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4-zyywlr5;{2005-09-30}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3-zyywlr4-zyywlr5;{2005-12-31}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10));{2006-03-31}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上，用2004年半年度的主营业务利润率代替}
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比3:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比3:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1362,12));{2004-06-30}
jlr7:=strtonum(f10text(jlrwz2+44,10))-strtonum(f10text(jlrwz2+56,10));{2004-09-30}
jlr6:=strtonum(f10text(jlrwz2+32,10))-strtonum(f10text(jlrwz2+44,10));{2004-12-31}
jlr5:=strtonum(f10text(jlrwz2+20,10));{2005-03-31}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5;{2005-06-30}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4-jlr5;{2005-09-30}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3-jlr4-jlr5;{2005-12-31}
jlr1:=strtonum(f10text(jlrwz1+20,10));{2006-03-31}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比3:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比3:jlrzlv5,linethick0,colorgray,precis2;
end;
f1010:=f10find('【每股指标】',1);
{取年度数据时间}
mgzbsjwz:=f10find('财务指标(单位) ',f1010+1);
mgndsj1:=f10text(mgzbsjwz+20,10);
mgndsj2:=f10text(mgzbsjwz+32,10);
mgndsj3:=f10text(mgzbsjwz+44,10);
mgndsj4:=f10text(mgzbsjwz+56,10);
{取现金流量}
mgxjllwz:=f10find('每股现金流量(元)',mgzbsjwz+1);
mgxjll1:=strtonum(f10text(mgxjllwz+20,10));
mgxjll2:=strtonum(f10text(mgxjllwz+32,10));
mgxjll3:=strtonum(f10text(mgxjllwz+44,10));
mgxjll4:=strtonum(f10text(mgxjllwz+56,10));
{取三项费用}
sxfywz1:=f10find('【利润构成与盈利能力】',f1010+1);
sxfywz2:=f10find('主营业务利润(万元)',sxfywz1+1);
sxfywz3:=f10find('经营费用(万元)',sxfywz2+1);
sxfywz4:=f10find('管理费用(万元)',sxfywz3+1);
sxfywz5:=f10find('财务费用(万元)',sxfywz4+1);
sxfywz6:=f10find('三项费用增长率(%) ',sxfywz5+1);
zyywlr1:=strtonum(f10text(sxfywz2+20,10));
zyywlr2:=strtonum(f10text(sxfywz2+32,10));
zyywlr3:=strtonum(f10text(sxfywz2+44,10));
zyywlr4:=strtonum(f10text(sxfywz2+56,10));
jyfy1:=strtonum(f10text(sxfywz3+20,10));
jyfy2:=strtonum(f10text(sxfywz3+32,10));
jyfy3:=strtonum(f10text(sxfywz3+44,10));
jyfy4:=strtonum(f10text(sxfywz3+56,10));
glfy1:=strtonum(f10text(sxfywz4+20,10));
glfy2:=strtonum(f10text(sxfywz4+32,10));
glfy3:=strtonum(f10text(sxfywz4+44,10));
glfy4:=strtonum(f10text(sxfywz4+56,10));
cwfy1:=strtonum(f10text(sxfywz5+20,10));
cwfy2:=strtonum(f10text(sxfywz5+32,10));
cwfy3:=strtonum(f10text(sxfywz5+44,10));
cwfy4:=strtonum(f10text(sxfywz5+56,10));
sxfyzlv1:=strtonum(f10text(sxfywz6+20,10));
sxfyzlv2:=strtonum(f10text(sxfywz6+32,10));
sxfyzlv3:=strtonum(f10text(sxfywz6+44,10));
sxfyzlv4:=strtonum(f10text(sxfywz6+56,10));
sxfyzb1:=(jyfy1+glfy1+cwfy1)/zyywlr1*100;
sxfyzb2:=(jyfy2+glfy2+cwfy2)/zyywlr2*100;
sxfyzb3:=(jyfy3+glfy3+cwfy3)/zyywlr3*100;
sxfyzb4:=(jyfy4+glfy4+cwfy4)/zyywlr4*100;
{取税后利润增长率}
shlrwz1:=f10find('【经营与发展能力】',f1010+1);
shlrwz:=f10find('税后利润增长率(%)',shlrwz1+1);
shlr1:=strtonum(f10text(shlrwz+20,10));
shlr2:=strtonum(f10text(shlrwz+32,10));
shlr3:=strtonum(f10text(shlrwz+44,10));
shlr4:=strtonum(f10text(shlrwz+56,10));
{取资产负债率}
zcfzlwz1:=f10find('【资产与负债】',f1010+1);
zcfzlwz:=f10find('资产负债率(%) ',zcfzlwz1+1);
zcfzl1:=strtonum(f10text(zcfzlwz+18,10));
zcfzl2:=strtonum(f10text(zcfzlwz+30,10));
zcfzl3:=strtonum(f10text(zcfzlwz+42,10));
zcfzl4:=strtonum(f10text(zcfzlwz+54,10));
{-------------------【图解模板】-------------------}
{显示文字}
DRAWTEXTREL(0,50,'报表时间'),COLORblue;
DRAWTEXTREL(0,100,'主营业务收入（万元）'),Colorblue;
DRAWTEXTREL(0,150,'主营业务同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,200,'净利润（万元）'),Colorblue;
DRAWTEXTREL(0,250,'净利润同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,300,'主营业务利润率（%）'),Colorblue;
DRAWTEXTREL(0,350,'主营利润率同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,400,'净资产收益率（%）'),Colorblue;
DRAWTEXTREL(0,500,'年度数据'),Colorblue;
DRAWTEXTREL(0,550,'税后利润增长率（%）'),Colorblue;
DRAWTEXTREL(0,600,'资产负债率（%）'),Colorblue;
DRAWTEXTREL(0,650,'三项费用增长率（%）'),Colorblue;
DRAWTEXTREL(0,700,'三项费用占主营利润率（%）'),Colorblue;
DRAWTEXTREL(0,750,'现金流（元）'),Colorblue;
{时间}
DRAWTEXTREL(900,50,zyywsrsj1),ALIGN2,COLORred;
DRAWTEXTREL(700,50,zyywsrsj2),ALIGN2,COLORred;
DRAWTEXTREL(500,50,zyywsrsj3),ALIGN2,COLORred;
DRAWTEXTREL(300,50,zyywsrsj4),ALIGN2,COLORred;
{主营业务收入}
DRAWTEXTREL(900,100,numtostr(zyywsr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,100,numtostr(zyywsr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,100,numtostr(zyywsr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,100,numtostr(zyywsr4)),ALIGN2,Colorffcc00;
{主营业务收入同比/环比}
DRAWTEXTREL(900,150,numtostr(zyywsrzlv5)+' / '+numtostr(zyywsrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,150,numtostr(zyywsrzlv6)+' / '+numtostr(zyywsrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,150,numtostr(zyywsrzlv7)+' / '+numtostr(zyywsrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,150,numtostr(zyywsrzlv8)+' / '+numtostr(zyywsrzlv4)),ALIGN2,Colorffcc00;
{净利润}
DRAWTEXTREL(900,200,numtostr(jlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,200,numtostr(jlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,200,numtostr(jlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,200,numtostr(jlr4)),ALIGN2,ColorFFcc00;
{净利润同比/环比}
DRAWTEXTREL(900,250,numtostr(jlrzlv5)+' / '+numtostr(jlrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,250,numtostr(jlrzlv6)+' / '+numtostr(jlrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,250,numtostr(jlrzlv7)+' / '+numtostr(jlrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,250,numtostr(jlrzlv8)+' / '+numtostr(jlrzlv4)),ALIGN2,Colorffcc00;
{主营业务利润率}
DRAWTEXTREL(900,300,numtostr(zyywlrl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,300,numtostr(zyywlrl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,300,numtostr(zyywlrl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,300,numtostr(zyywlrl4)),ALIGN2,Colorffcc00;
{主营业务利润率同比/环比}
DRAWTEXTREL(900,350,numtostr(zyywlrlzlv5)+' / '+numtostr(zyywlrlzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,350,numtostr(zyywlrlzlv6)+' / '+numtostr(zyywlrlzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,350,numtostr(zyywlrlzlv7)+' / '+numtostr(zyywlrlzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,350,numtostr(zyywlrlzlv8)+' / '+numtostr(zyywlrlzlv4)),ALIGN2,Colorffcc00;
{净资产收益率}
DRAWTEXTREL(900,400,numtostr(jzcsyl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,400,numtostr(jzcsyl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,400,numtostr(jzcsyl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,400,numtostr(jzcsyl4)),ALIGN2,Colorffcc00;
{年度数据时间}
DRAWTEXTREL(900,500,mgndsj1),ALIGN2,COLORRED;
DRAWTEXTREL(700,500,mgndsj2),ALIGN2,COLORRED;
DRAWTEXTREL(500,500,mgndsj3),ALIGN2,COLORRED;
DRAWTEXTREL(300,500,mgndsj4),ALIGN2,COLORRED;
{税后利润增长率}
DRAWTEXTREL(900,550,numtostr(shlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,550,numtostr(shlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,550,numtostr(shlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,550,numtostr(shlr4)),ALIGN2,Colorffcc00;
{资产负债率}
DRAWTEXTREL(900,600,numtostr(zcfzl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,600,numtostr(zcfzl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,600,numtostr(zcfzl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,600,numtostr(zcfzl4)),ALIGN2,Colorffcc00;
{三项费用增长率}
DRAWTEXTREL(900,650,numtostr(sxfyzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,650,numtostr(sxfyzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,650,numtostr(sxfyzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,650,numtostr(sxfyzlv4)),ALIGN2,Colorffcc00;
{三项费用占主营利润率}
DRAWTEXTREL(900,700,numtostr(sxfyzb1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,700,numtostr(sxfyzb2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,700,numtostr(sxfyzb3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,700,numtostr(sxfyzb4)),ALIGN2,Colorffcc00;
{现金流}
DRAWTEXTREL(900,750,numtostr(mgxjll1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,750,numtostr(mgxjll2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,750,numtostr(mgxjll3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,750,numtostr(mgxjll4)),ALIGN2,Colorffcc00;
{说明}
DRAWTEXTREL(100,880,'注：若无数据或者显示乱码，是因为该报季无数据可以取，请更新！！'),linethick2,COLOR8000CC;
[ 本帖最后由 zhbsystem888 于 2007-4-11 10:43 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
|
|
[复制链接]
发表于 2007-4-11 10:06
楼主