FAQ > 金融建模 > 建模问题 > 股票相关

Q：找出某一天A股市场里面变成ST股及当天是ST股的股票    

  • A：
    范例1：获得历史A股指定日转变为ST股股票的代码如下：
    endT:=20150130T;
    //得到endT的所有A股市场股票代码
    stocks:=getAbkbydate("A股",endT);
    //getAbkbydate可从此处下载：FAQ：Q：如何得到历史A股
    data:=array();
    n:=0;
    for i:=0 to length(stocks)-1 do
    begin
      stockid:=stocks[i];
      setsysparam(pn_stock(),stockid);
      //判断endt日，stockid是否被ST，0表示否，1表示该天被ST
      if IsST_4(endt,endt)=0 then continue;
      data[n]:=stockid;
      n++;
    end;
    return data;


    范例2：获得历史A股指定日是ST股的股票
    即范例1中的判断条件isst_4改为isst_3即可，具体如下：
    endT:=20150130T;
    //得到endT的所有A股市场股票代码
    stocks:=getAbkbydate("A股",endT);
    data:=array();
    n:=0;
    for i:=0 to length(stocks)-1 do
    begin
      stockid:=stocks[i];
      setsysparam(pn_stock(),stockid);
      //判断endt日，stockid是否为ST，0表示否，1表示ST
      if IsST_3(endt)=0 then continue;
      data[n]:=stockid;
      n++;
    end;
    return data;