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;