欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


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

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有7792人关注过本帖树形打印复制链接

主题：VBA的testreport 重大失误
帅哥哟，离线，有人找我吗？
王锋
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2014/9/28 17:44:23 [只看该作者]

1,你需要自己在代码中控制测试完强平, 请认真看范例1

2,VBA中显示的测试时段是你打开数据时的范围,你可以通过下面的方法来限定读取数据的范围

GetHistoryDataByDate 取 指定品种日期时段的历史数据HistoryData对象，

StkindiByData      使用指定数据引用任意品种的指标输出

3,范例4中确实这行是不需要的,待我们修正帮助

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
chacterchen
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：93 积分：0 威望：0 精华：0 注册：2014/1/29 15:08:45 		  发帖心情 Post By：2014/9/29 11:31:28 [只看该作者]

谢谢王峰

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

为何总是显示
非正式专业版只能读取1000根K线数据

按照我的公式,应该是1年的数据,最多200多根K线啊?
 回到顶部
帅哥，在线噢！
admin
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2014/9/29 14:00:14 [只看该作者]

只有专业版才能在VBA中使用全部历史数据

 回到顶部
帅哥哟，离线，有人找我吗？
chacterchen
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：93 积分：0 威望：0 精华：0 注册：2014/1/29 15:08:45 		  发帖心情 Post By：2014/9/29 15:27:35 [只看该作者]

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

很明显,这里只有"1998/1/1" 到 "1999/1/1"这一年的日线数据.远远小于你们说的1000根的上限啊?!
 回到顶部
帅哥，在线噢！
admin
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2014/9/29 22:09:37 [只看该作者]

有时候这只是个提示而已,如果你读取在1000根以下,不影响的
 回到顶部
帅哥哟，离线，有人找我吗？
chacterchen
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：93 积分：0 威望：0 精华：0 注册：2014/1/29 15:08:45 		  发帖心情 Post By：2014/9/30 9:56:54 [只看该作者]

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

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

————————————————————————————————————————————————————————————
'输入选项
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 "     "    
next
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") '读上期所橡胶连续合约指定时段的日线数据
 回到顶部
帅哥哟，离线，有人找我吗？
chacterchen
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：93 积分：0 威望：0 精华：0 注册：2014/1/29 15:08:45 		  发帖心情 Post By：2014/9/30 13:21:35 [只看该作者]

将帮助里GetHistoryDataByDate的代码稍微修改了一下，发现仍旧存在问题。我在图表内用时间尺去量，"2010/1/1"~"2011/8/16"这段时间的K线长度是394（T）。
但是下面的代码 运行结果是267根。 而且起始时间不对。不知问题出在哪里呢？
==========================
267
2010/7/14
2011/8/16
==========================

sub TEST()
set Data1= marketdata.GetHistoryDataByDate("ru00","sq",5,"2010/1/1","2011/8/16") '读中金所股指期货主力合约指定时段的日线数据
for i = 0 to 4     '将msgout与之前的数据隔开,便于观察
application.MsgOut "     "
next  
Application.MsgOut Data1.Count '打印输出数据量
Application.MsgOut Data1.Date(0) '输出第一个数据日期
Application.MsgOut Data1.Date(Data1.Count-1)'输出最后一个数据日期
'数据处理完毕后,清理缓冲区 
marketdata.DestroyHistoryData
End Sub


Sub APPLICATION_VBAStart()
call test
End Sub
 回到顶部
帅哥，在线噢！
admin
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2014/9/30 22:31:30 [只看该作者]

经过测试比对,发现该问题主要是你是非专业版的限制导致的,如果你没有专业版,建议你还是自己用你之前最早的帖子方法来使用吧

 回到顶部
帅哥哟，离线，有人找我吗？
chacterchen
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：93 积分：0 威望：0 精华：0 注册：2014/1/29 15:08:45 		  发帖心情 Post By：2014/10/1 5:37:38 [只看该作者]

谢谢,我还是回到之前的测试方法中去吧!

现在有个新的问题. 同一段VBA中使用两次marketdata.STKINDI导入两个公式,发现如果使用第二次导入的语句,见下面红字语句,则testreport就不能工作了,出来的结果全是0,而且交易明细里头没有交易内容 不知道为什么呢?如何解决?

=======================================
'使用PLE语言做为信号,VBA进行测评

'输入选项
InitalCapital=20          '起始资金XX万
startdate="1998-1-1"     '测试起始日期
finishdate="2008-1-1"     '测试结束日期


'以下开始正式测试
Testreport.StartAndInit '开始测评系统的准备工作
Testreport.InitCash=InitalCapital*10000 '初始资金由万转为元

Set Formula = marketdata.STKINDI("RU13","SQ","MAADX入场ATR离场()",0,5) '调用上期所RU13合约的日线自定义指标
Set HistroyData = Formula.ParentGrid.GetHistoryData '直接得到公式区的数据对象,提高运行效率
Set StopLossFormula= marketdata.STKINDI("RU13","SQ","ATR主图()",0,5) '调用止损指标,会导致testreport无法正常测试


for i = 0 to 4     '将msgout与之前的数据隔开,便于观察
application.MsgOut "     "    
next
application.MsgOut "HistoryData:"&cstr(HistroyData.count)
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)


'tempvar= cdate(startdate)
'application.MsgOut "Start date:"&tempvar&" HistoryData起始日期:"&Formula.GetBufDateData(0)     '看看是否是转换成为了日期格式

'查找在Formula中的起始日期序列号

'确定起始日期在数组中的序列号
if Formula.GetBufDateData(0)> cdate(startdate) then          '如果数据列的起始日期晚于我设定的开始日期,则说明数据不足,从已有数据序列的第一个值开始测试
     application.MsgOut"测试数据不足,请检查起始日期或者更改'工具>选项>维护>内存保留'"
     BeginDataNum=0
else     '如果我设定的开始数据晚于数据起始日期,则需要查找从何时开始测试
     i = 0
     while (i<= HistroyData.Count-1) and (Formula.GetBufDateData(i) < cdate(startdate))
          i = i+1
     wend    
     BeginDataNum=i
end if
application.MsgOut "BeginDataNum:"&BeginDataNum    
application.MsgOut "Formula.GetBufDateData(BeginDataNum):"&Formula.GetBufDateData(BeginDataNum)     '看看哪一天是起始日期

'确定结束日期在数组中的序列号
if Formula.GetBufDateData(Formula.DataSize-1)< cdate(finishdate) then          '如果数据列的起始日期晚于我设定的开始日期,则说明数据不足,从已有数据序列的第一个值开始测试
     application.MsgOut"测试数据不足,请检查结束日期是否正确"
     FinishDataNum=Formula.DataSize-1
else     '如果我设定的开始数据晚于数据起始日期,则需要查找从何时开始测试
     i = 0
     while (i<= HistroyData.Count-1) and (Formula.GetBufDateData(i) < cdate(finishdate))
          i = i+1
     wend    
     FinishDataNum=i-1
end if
application.MsgOut "FinishDataNum:"&FinishDataNum    
application.MsgOut "Formula.GetBufDateData(FinishDataNum):"&Formula.GetBufDateData(FinishDataNum)     '看看哪一天是结束日期

If TestReport.AddTestStock(HistroyData,"RU13","SQ",0) < 1 Then '向测试报告系统添加一个新测试品种
    MsgBox "请正确添加品种"
End if

'下面的代码控制循环测试
'使用PEL策略的信号进行交易
For i = 0 to FinishDataNum
     if i >= BeginDataNum Then
          if i= BeginDataNum then
               application.MsgOut "(i=BeginDataNum):     "&Formula.GetBufDateData(i)    
          end if
         
          if i= FinishDataNum then
               application.MsgOut "(i=FinishDataNum ):     "&Formula.GetBufDateData(i)    
          end if    
         
         if Formula.GetBufData("开多条件",i) = 1 Then '开多
             TestReport.Buy 1, HistroyData.Close(i)
         End if
    
         if Formula.GetBufData("平多条件",i) = 1 And TestReport.Holding > 0 Then '平多
             TestReport.Sell 0, HistroyData.Close(i)
         End if
    
         if Formula.GetBufData("开空条件",i) = 1 Then '开多
             TestReport.Buyshort 1, HistroyData.Close(i)
         End if
    
         if Formula.GetBufData("平空条件",i) = 1 And TestReport.Holding < 0 Then '平多
             TestReport.Sellshort 0, HistroyData.Close(i)
         End if
    
          '显示测试时当前的资产
          'Application.msgout TestReport.ASSET
     end if
    
    
    '测试完毕强平持仓
    If i = FinishDataNum Then
        If TestReport.Holding < 0 Then
            TestReport.SellShort 0,HistroyData.Close(i)
        End IF
        If TestReport.Holding > 0 Then
            TestReport.Sell 0, HistroyData.Close(i)
        End If
    End If

          '为步进下一个数据做准备
          TestReport.StepIt i
Next

'在此添加新的证券代码

'测试完毕显示测试报告
Testreport.ShowReport
 回到顶部
帅哥，在线噢！
admin
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2014/10/1 7:46:19 [只看该作者]

 

Stkindi 方法

注意: 该方法返回的Formula对象将使用共享的内存缓冲区,如果你有多个品种需要转换并且同时处理,请使用数组类Array.保存转换后的Formula对象数据.
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.10938 秒, 5 次数据查询