FAQ > 金融建模 > 应用案例 > 资金流向

Q：如何获取个股日内分钟级资金流入流出    

  • A：使用模型Stock_MoneyFlow_Grading统计个股日内分钟级资金流入流出。
    本文中提供以下取数范例：
    范例说明
    范例一个股指定日分钟线资金流入流出
    范例二个股开盘至截止时间分钟线累计的资金流入流出
    范例三多个股票指定日30分钟线资金流入流出
    实现范例
    范例一：获取个股指定日分钟线资金流入流出
    endt:=20260310T;
    stock:="SZ000001";
    cycle:=cy_1m();
    BSType:=3;
    DType:=0;
    Option:=0;
    data:=Stock_MoneyFlow_Grading(Stock,EndT,Cycle,BSType,DType,Option);
    name:=StockName(stock);
    return select stock as "代码",name as "名称",["时间"],
           ["流入成交金额"],["流出成交金额"],
           ["流入成交金额"]-["流出成交金额"] as "净流入成交金额"
        from data end;
    部分结果：

    范例二：获取个股开盘至截止时间分钟线累计的资金流入流出
    endt:=20260310T;
    stime:="14:30:00";
    stock:="SZ000776";
    cycle:=cy_1m();
    BSType:=3;
    DType:=0;
    Option:=0;
    data:=Stock_MoneyFlow_Grading(Stock,EndT,Cycle,BSType,DType,Option);
    name:=StockName(stock);
    endttime:=datetimetostr(endt+StrToTime(stime));
    len:=length(data);
    return select stock as "代码",name as "名称",["时间"],
           a:=sumof(["流入成交金额"],true,len) as "累计流入成交金额",
           b:=sumof(["流出成交金额"],true,len) as "累计流出成交金额",
           a-b as "累计净流入成交金额"
        from data where ["时间"]<=endttime end;
    部分结果：

    范例三：获取多个股票指定日30分钟线资金流入流出
    endt:=20260310T;
    stocks:=GetBKByDate("SH000016",endt);//上证50成份股
    cycle:=cy_30m();
    BSType:=3;
    DType:=0;
    Option:=0;
    data:=array();
    for i,stock in stocks do
    begin
      name:=StockName(stock);
      tmp:=Stock_MoneyFlow_Grading(Stock,EndT,Cycle,BSType,DType,Option);
      tmp:=select stock as "代码",name as "名称",["时间"],
           ["流入成交金额"],["流出成交金额"],
           ["流入成交金额"]-["流出成交金额"] as "净流入成交金额"
         from tmp end;
      data&=tmp;
    end
    return data;
    部分结果：