标题：似乎发现金字塔的一个小问题, 或者是我本地数据维护有问题

1楼

qq代人发帖 发表于：2019/10/24 13:03:03

请教：似乎发现金字塔的一个小问题, 或者是我本地数据维护有问题, 即marketData.ReportData有数据，而MarketData.MinuteData没有数据的情况。
具体如下：

vbs代码：
SUB test1(dmHY,dmJYS)
    Set rpt =  marketdata.GetMinuteData(dmHY,dmJYS)
    application.MsgOut dmHY & " " & dmJYS & " " & rpt.count
    marketdata.DestroyMinuteData
END SUB

SUB test2(dmHY,dmJYS)
    Set rpt =  marketdata.GetReportData(dmHY,dmJYS)
    ins_name = rpt.StockName

    OHLCVaO = rpt.Open&" "&rpt.High&" "&rpt.Low&" "&rpt.NewPrice&" "& rpt.volume
    application.MsgOut rpt.Date&" "&OHLCVaO&" "&otherprice&" "&others
    'Set rpt = Nothing
END SUB

SUB test0
test1 "113544", "SH"
test2 "113544", "SH"
END sub

运行 test0 之后的输出如下：

113544 SH 0
2019/10/23 15:06:35 116.31 116.7 115.69 115.97 52026

2楼

yukizzc 发表于：2019/10/24 13:09:25

历史数据一定是自己本地先下载补充好。工具-数据补充

共2 条记录, 每页显示 10 条, 页签: [1]