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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 通过vba可以查出来，连续合约是哪个具体的合约吗？

   

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

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

主题：通过vba可以查出来，连续合约是哪个具体的合约吗？
美女呀，离线，留言给我吧！
pyd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：8439 积分：0 威望：0 精华：0 注册：2014/7/14 13:43:36 		通过vba可以查出来，连续合约是哪个具体的合约吗？  发帖心情 Post By：2014/7/16 11:10:43 [只看该作者]

请教：通过vba可以查出来，连续合约是哪个具体的合约吗？
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

做遍历即可查到


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

金字塔-技术部

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

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

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


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2014/7/16 12:14:19 [只看该作者]

Function GetContractCode(sMarketCode,sStockPre)    '根据市场编码取得主力合约编码
 GetCAX" then sStockPre="AY"
 if sStockPre="SRX" then sStockPre="SRY"
  
 For j = 1 To 12
  if j<10 then
   m="0" & cstr(j)
  else
   m=cstr(j)
  end if 
  Stock=ucase(sStockPre & m)
  'application.MsgOut sMarketCode & "," & Stock
  on error resume next    
'  Set report1 = marketdata.GetReportData(Stock,sMarketCode)
'  if cdbl(report1.volume)>contractvolume then
'   contractvolume=cdbl(report1.volume)
'   ZhuLiCode = report1.Label
'  end if 
  if marketdata.IsExistStock(Stock,sMarketCode) then
   set report1=marketdata.GetReportData(Stock,sMarketCode)
   if report1.IsMainInstrument=1 then
    GetContractCode=Stock
    exit function
   end if 
  end if 
 Next
End Function

 

以上函数返回主力合约代码，调用方法是:aaa=GetContractCode("ZJ","IF00"),aaa就是IF对应的主力合约

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