说明::要提取所有基金持有的股票总市值,首先要提取所有的基金代码,然后循环提取基金的最近报告期以及股票市值,加总所有基金的股票市值。
具体实现:
endt:=20201201T;
fundarr:=getbk('上市基金;已退市基金'); //所有基金
r:=0;
for i:=0 to length(fundarr)-1 do
begin
fund:=fundarr[i];
SetSysParam(pn_stock(),fund);
rdate:=NewQuarterlyReportDateOfEndT_Fund(endt); //最近报告期
r+=report(322002,rdate); //持股市值
end
return r;
返回结果:
4245739008558.76