//获取全A股指定日期区间的多个指标
Function TSDN_BFDemo();
begin
 bf:=4;//最大并发数
 begt:=20210101t;
 endt:=20210112t;
 stocks:=getbk("A股");
 sLen:=length(stocks);
 n:=sLen div bf;//每个并发任务分配的证券个数
 rt:=array();
 ret:=array();
 for i:=0 to bf-1 do
 begin
  if i<>bf-1 then
   ret[i]:=#GetStocksDataByQK(stocks[n*i:n*(i+1)-1],begt,endt);
  else
   ret[i]:=GetStocksDataByQK(stocks[n*i:sLen-1],begt,endt);
 end
 for j in ret do
  rt&=dupvalue(ret[j]);
 return rt;
End;

//取指定日期区间多个股票的指标
Function GetStocksDataByQK(stocks,begt,endt)
begin
 ov2:=BackupSystemParameters2();
 setsysparam(pn_cycle(),cy_day()); //周期
 data:=array();
 n:=0;
 for i:=0 to length(stocks)-1 do
 begin
  stock:=stocks[i];
  setsysparam(pn_stock(),stock); //设置当前证券代码
  dayList:=stocktradedayqk(begt,endt); //取当前证券的交易时间序列
  for j:=0 to length(dayList)-1 do //时间循环
  begin
   dayEnd:=dayList[j];
   setsysparam(pn_date(),dayEnd);//设置当前时间，给不需要时间参数的指标提供指定日
   data[n]['StockID']:=stock;
   data[n]['StockName']:=stockName(stock);
   data[n]['Date']:=datetostr(dayEnd);
   //获取多个指标值
   data[n,'收盘价']:=close();
   data[n,'成交量']:=vol();
   data[n,'涨幅(%)']:=stockzf3();
   data[n,'macd']:=MACD_MACD_v(12,26,9);
   data[n,'ema_10']:=Ema_v(10);
   //还可以继续添加其它指标
   //data[k,'xxx']:=funcxxx(...);
   n++;
  end;
 end
 return data;
end