VBA的testreport 重大失误 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

明天就要国庆节了，先祝各位金字塔的各位管理员国庆快乐！你们对问题的回答快速，准确。对于用户快速上手金字塔软件很有必要，必须赞一下！

刚刚重新测试了一下，还有些问题与疑问，烦请帮忙解答一下吧，谢谢！

下面是代码

————————————————————————————————————————————————————————————

'输入选项

InitalCapital=20 '起始资金XX万

startdate="1998-1-1" '测试起始日期

finishdate="2008-1-1" '测试结束日期

'以下开始正式测试

Testreport.StartAndInit '开始测评系统的准备工作

Testreport.InitCash=InitalCapital*10000 '初始资金由万转为元

Set HistoryData = marketdata.GetHistoryDataByDate("RU13","SQ",5,"1998/1/1","1999/1/1") '读上期所橡胶连续合约指定时段的日线数据

Set Formula = marketdata.StkindiByData("MAADX入场ATR离场()",HistoryData) '使用HistoryData对象的数据计算MA移动平均线指标,参数为默认参数

for i = 0 to 4 '将msgout与之前的数据隔开,便于观察

application.MsgOut " "

application.MsgOut "HistoryData:"&cstr(HistoryData.count)

application.MsgOut "HistoryData.Date(0):"&cstr(HistoryData.Date(0))

application.MsgOut "HistoryData.Date(HistoryData.count-1):"&cstr(HistoryData.Date(HistoryData.count-1))

application.MsgOut "Formula.DataSize:"&Formula.DataSize

application.MsgOut "Formula.GetBufDateData(0):"&Formula.GetBufDateData(0)

application.MsgOut "Formula.GetBufDateData(Formula.DataSize-1):"&Formula.GetBufDateData(Formula.DataSize-1)

——————————————————————————————————————————————————————————

下面是输出结果

——————————————————————

HistoryData:1000

HistoryData.Date(0):2010/7/15

HistoryData.Date(HistoryData.count-1):2014/9/30

Formula.DataSize:0

Formula.GetBufDateData(0):0:00:00

Formula.GetBufDateData(Formula.DataSize-1):0:00:00

——————————————————————

我的问题是红色标红语句为何输出的日期与我语句的日期不相符合？

Set HistoryData = marketdata.GetHistoryDataByDate("RU13","SQ",5,"1998/1/1","1999/1/1") '读上期所橡胶连续合约指定时段的日线数据

主题：VBA的testreport 重大失误