Endt:=inttodate(20140401);
SetSysParam(PN_Date(),EndT);
stockArr:=GetBKByDate('SH000300',EndT);
r:=array();
n:=0;
for nI:=0 to length(StockArr)-1 do
begin
stockID:=StockArr[nI];
setsysparam(pn_stock(),StockID);
if not istradeday(EndT) then continue;
r[n]['StockID']:=StockID;
r[n]['StockName']:=StockName(StockID);
r[n]['StockZF']:=stockzf3();
n++;
end;
return RPSIt(r,'StockZF',1);