以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  TestReport 回测怎么设置回测的起止时间？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=98293)
--  作者：zhou
--  发布时间：2016/6/6 17:19:32
--  TestReport 回测怎么设置回测的起止时间？
TestReport 回测怎么设置回测的起止时间？
--  作者：王锋
--  发布时间：2016/6/6 17:56:50
--  

用 GetHistoryDataByDate 取代范例中的 GetHistoryData 即可。

 

sub TEST()
set Data1= marketdata.GetHistoryDataByDate("if00","zj",0,"2014/8/8","2014/8/16") \'读中金所股指期货主力合约指定时段的1分钟数据
Application.MsgOut Data1.Count \'打印输出数据量
Application.MsgOut Data1.Date(0) \'输出第一个数据日期
Application.MsgOut Data1.Date(Data1.Count-1)\'输出最后一个数据日期

\'数据处理完毕后,清理缓冲区
marketdata.DestroyHistoryData
End Sub
--  作者：zhou
--  发布时间：2016/6/7 9:27:16
--  
 Sub T5()

Testreport.StartAndInit \'开始测评系统的准备工作
Testreport.InitCash=100*10000 \'初始资金100万
set HistroyData= marketdata.GetHistoryDataByDate("au00","sq",5,"2014/1/2","2016/6/06") \'读主力合约指定时段的日线数据
Set Formula = marketdata.STKINDI("au00","sq","ma35()",0,5) \'调用日线自定义指标
Set HistroyData = Formula.ParentGrid.GetHistoryData \'直接得到公式区的数据对象,提高运行效率
msgbox HistroyData.date(0)
Application.msgout TestReport.ASSET
TestReport.StepIt i
Testreport.ShowReport
End Sub
图片点击可在新窗口打开查看但这里日期为什么是12月16？而不是2014/1/1
--  作者：yukizzc
--  发布时间：2016/6/7 9:45:48
--  

工具-选项-维护

内存保留，这边的数量调大然后重启电脑
--  作者：王锋
--  发布时间：2016/6/7 9:56:10
--  
Sub T5()

Testreport.StartAndInit \'开始测评系统的准备工作
Testreport.InitCash=100*10000 \'初始资金100万
set HistroyData= marketdata.GetHistoryDataByDate("au00","sq",5,"2014/1/2","2016/6/06") \'读主力合约指定时段的日线数据
Set Formula = marketdata.StkindiByData("ma35()",HistroyData) \'调用日线自定义指标
msgbox HistroyData.date(0)
Application.msgout TestReport.ASSET
TestReport.StepIt i
Testreport.ShowReport
End Sub