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

左栏

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]代码中MaxOpenint的初始值和运行过程中的变化值是多少?

   

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

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

主题：[求助]代码中MaxOpenint的初始值和运行过程中的变化值是多少?
帅哥哟，离线，有人找我吗？
NaturalLaw
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：108 积分：0 威望：0 精华：0 注册：2016/12/13 12:08:16 		[求助]代码中MaxOpenint的初始值和运行过程中的变化值是多少?  发帖心情 Post By：2017/3/30 9:31:21 [只看该作者]

'该示例从郑州市场筛选SR合约得最大持仓量做为主力合约
Sub ScreenMaxOpenint()
 'MaxCode主力合约代码;MaxOpenint最大持仓量
 Dim MaxCode,MaxOpenint,Count,i,Report
 Count = MarketData.GetReportCount("ZQ")'得到市场所有品种数
 For i = 0 To Count - 1
 Set Report = MarketData.GetReportDataByIndex("ZQ",i)
 '只处理SR合约
 If Left(Report.Label,2) = "SR" Then
  '只处理有效合约
  If Right(Report.Label,2) >= "01" And Right(Report.Label,2) <= "12" Then
   If Report.Openint > MaxOpenint Then
    MaxCode = Report.Label
    MaxOpenint = Report.Openint
      End If
  End If
 End If
 Next
 '显示成交量最大得合约
 MsgBox MaxCode
End Sub

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.08691 秒, 5 次数据查询