'不同品种为独立的缓冲区.
marketdata.HistoryDataMode = 1
set sh001 = marketdata.GetHistoryDataByDate("if00", "zj", 1, "2016/12/9", "2016/12/9") 'marketdata.GetHistoryData("sh001", "sh", 0)
lastIndex = sh001.Count - 1
'MsgBox sh001.close(lastIndex)
MsgBox sh001.Date(0) ' 显示2016/10/17 10:05:00 为什么时间限制无效呢??
MsgBox sh001.Date(lastIndex) '显示2016/12/9 15:00:00 显示正确
' 数据处理完毕后, 清理缓冲区.
marketdata.DestroyHistoryData
分钟级别的历史数据,时间限制加上09:00:00 15:00:00配合日期一起

此主题相关图片如下:x_xjo}yw(sr9vw)kf{e16_e.png

如果不行,重启下软件试试
Set sh001_test = marketdata.GetHistoryDataByDate("000001", "sh", 1, "2016/12/12 09:30:00", "2016/12/12 15:00:00") '5分钟数据正确
Set sh001_test = marketdata.GetHistoryDataByDate("000001", "sh", 0, "2016/12/12 09:30:00", "2016/12/12 15:00:00") '1分钟则得不到正确结果
上面的帖子我发错了,请版主删之.
在我机子上还是不行,无论多少周期,版本都是最新的了...
不过我想了个办法暂时绕过这个问题,等弄明白为什么了再来告诉你.
多谢啦!!
Set sh001_test = marketdata.GetHistoryDataByDate("000001", "sh", 0, "2016/12/12 09:30:00", "2016/12/12 15:00:00") '1分钟则得不到正确结果
Application.MsgOut sh001_test.count
这个代码我们这里测试也没什么问题,不知道你机器具体怎么回事