//获取2012年10月19日在上市交易的A股，getabkbydate为作者的用户函数，
//可在首页中搜索“getabkbydate”获得
  EndT:=inttodate(20121019);
  StockArr:=getabkbydate('上证A股;深证A股;中小企业板;创业板',EndT);
//保存股票列表为板块“历史A股”
  SaveBk("历史A股","我的分类",StockArr);
//返回A股2012/10/19日的交易股票个数
  SetSysParam(Pn_Bk(),"历史A股");
  return Bk_TradedCount(EndT);

//返回结果：2412