欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


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

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2773人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
qq代人发帖
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:18691 积分:0 威望:0 精华:0 注册:2013/7/15 9:22:16
似乎发现金字塔的一个小问题, 或者是我本地数据维护有问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2019/10/24 13:09:25 [只看该作者]

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

 回到顶部