'Set HistoryData = marketdata.GetHistoryDataByDate(TestCode, "zj", 0, "2015-02-25 00:00:00", "2015-02-27 00:00:00")
Set HistoryData = marketdata.GetHistoryData("if03", "zj", 0)
If IsEmpty(HistoryData) or IsNull(HistoryData) then
Application.ActivateFrame "Technic"
Set Grid = Technic.GetGridByName("MAIN")
DbgMsg "没取到数据,使用窗格内数据"
Set HistoryData = Grid.GetHistoryData
If IsEmpty(HistoryData) or IsNull(HistoryData) then
Application.MsgOut "未取到历史数据"
exit sub
end if
end if
Set Formula = marketdata.StkindiByData("ma",HistoryData)
DbgMsg "COUNT:" & cstr(HistoryData.Count)
DbgMsg "MA3:" & Formula.GetBufData("ma3",50)
DbgMsg "最早的一条数据是:" & HistoryData.Date(0) & ",共" & HistoryData.Count
输出是:
没取到数据,使用窗格内数据
COUNT:1000
MA3:0
最早的一条数据是:2015-2-17 15:05:00,共1000
用专业版的帐号登录 HistoryData 可以获取到了 不过调用 GetHistoryDataByDate 却不行