- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2005-10-14
|
|
原帖由 太白山人 于 2007-5-6 14:49 发表 
向zhbsystem 、webyw二位仁兄求助！
首先谢谢zhbsystem兄的F10公式！也谢谢webyw兄的“06Q4万得财务数据”！！
记得依然兄曾建议5.1期间组织大家提取F10的数据，我是翘首以盼，可能依然兄太忙了，至今不见 ...
太白兄不要客气，我是使用飞狐软件，提取万得数据的，公式如下：
locate:=F10FIND('历年简要财务指标',1);
locate1:=F10FIND('每股指标(单位)',locate);
rqtq:=F10TEXT(locate1+22,10);
rq1:=STRCMP(rqtq,'2007-03-31');{对应需要修改的时间}
IF rq1=0 then begin
{主营业务收入}
zyywsr1:=F10FIND('主营业务收入(万元)',locate1+1);
zyywsr2:=F10FIND('主营业务收入(万元)',zyywsr1+1);
主营收入1:STRTONUM(F10TEXT(zyywsr1+22,10));{2007-03-31}
主营收入2:STRTONUM(F10TEXT(zyywsr1+34,10));{2006-12-31}
主营收入3:STRTONUM(F10TEXT(zyywsr1+46,10));{2006-09-30}
主营收入4:STRTONUM(F10TEXT(zyywsr1+58,10));{2006-06-30}
zysrxs:=F10TEXT(zyywsr1+22,10)+' , '+F10TEXT(zyywsr1+34,10)+' , '+F10TEXT(zyywsr1+46,10)+' , '+F10TEXT(zyywsr1+58,10);
drawtext(barpos=sysparam(2),sysparam(4),zysrxs),align4,coloryellow;
end;
如果用的是其它软件，提取的是其它数据要相应修改(我在公式中加了一个显示，可以根据显示情况进行修改），时间我没有同步提取，因为飞狐中的时间要特别处理，我是按季度提取后另外处理时间的。如果太白兄使用的软件对时间没有要求，可以在excel里把时间直接加入就可以了。
[ 本帖最后由 webyw 于 2007-5-6 16:13 编辑 ] |
|
|
[复制链接]
发表于 2007-5-6 12:08
