高级功能研发区-似乎发现金字塔的一个小问题, 或者是我本地数据维护有问题金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  似乎发现金字塔的一个小问题, 或者是我本地数据维护有问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=172605)

--  作者：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

--  作者：yukizzc
--  发布时间：2019/10/24 13:09:25
--
历史数据一定是自己本地先下载补充好。工具-数据补充