使用的是海通期货仿真的帐号,想获得分笔数据和历史数据,但是都不成功。
(1)set minutedata = marketdata.GetHistoryData("IF01","zj",0)
count属性是4000多,看似没问题,但是拉出来一看,除了第一个数据是11月22日的之外都是空值;
(2) set minutedata = marketdata.GetMinuteData("IF01","zj")
count是12105,但是拉出来数据第一个是2010-12-24 13:10 而当时已经快收盘了,其他数据都是空值。
不知道这是为什么????
今天可以接受到数据了,但是还是把原来的代码贴出来。
Sub test1()
'分笔数据是否可得
Set MinuteData = marketdata.GetMinuteData("IF01","Zj")
msgbox MinuteData.count
msgbox MinuteData.date(0)
'显示第11个数据得时间,收盘,成交量
for i=MinuteData.count to 1 step -1000
msgbox MinuteData.date(i-1)
msgbox MinuteData.newprice(i-1)
'msgbox HistroyData.Volume(i-1)
next
End Sub
sub test11()
'1分钟数据是否可得
set History = marketdata.GetHistoryData("if01","zj",0)
msgbox history.count
for i=History.count to 1 step -1000
msgbox History.date(i-1)
msgbox History.close(i-1)
next
end sub