您现在的位置：程序化交易>> 期货公式>> 金字塔等>> 金字塔知识>>正文内容

获取主力合约的函数　[金字塔]

作者：金字塔来源：cxh99.com 发布时间：2014年07月07日点击数：　【收藏到本网的会员中心】

咨询内容： 经常有人问怎么获取主力合约，我做成了一个函数，只要传入合约代码和市场代码就可以返回主力合约，下面是代码：
Function GetContractCode(sMarketCode,sStockPre) '根据市场编码取得主力合约编码 contractvolume = 0 k=0 ZhuLiCode="" For j = 1 To 12 if j<10 then m="0" & cstr(j) else m=cstr(j) end if Stock=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 report1.volume>0 then aCode(k)=report1.Label k=k+1 end if Next 'application.MsgOut ZhuLiCode GetContractCode=ZhuLiCodeEnd Function
调用方法：MainCode=GetContractCode("IF00","ZJ") '获取股指主力合约 MainCode=GetContractCode("RB00","SQ") '获取螺纹钢主力合约
金字塔客服： 不好意思，问个小白问题
这个函数怎么建立？新建一个指标吗？
用户回复： 不是指标，这是在模块中建立的函数呀，你得先了解一下vba基础。
网友回复： 哦谢谢
网友回复： 又是一个好模块啊！谢谢版主；

有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友

可联系技术人员 QQ: 1145508240 进行有偿编写！（不贵！点击查看价格！）

【字体：小大】【打印文章】【查看评论】

没有相关内容