金字塔獲取主力合約最簡單的VBA代碼[金字塔模型]

'本過程需要兩個參數

'1.sMarketCode市場代碼，如中金所是ZJ，上期所SQ,鄭商所ZQ,大連所DQ

'2.sStockPre品種代碼的前綴，如股指IF,螺紋鋼RB等，就是合約代碼的符號，不要月份。

'調用方法：GetContractCode 'ZJ','IF'      '返回股指期貨的主力合約

'調用上述過程之后，ZhuLiCode就保存了主力合約的代碼

'本方法是通過判斷那個合約的成交量與連續合約的成交量相等的方式來判斷主力合約的，跟金字塔內部的方式一致。

public ZhuLiCode     '主力合約代碼

Sub GetContractCode(sMarketCode,sStockPre)    '根據市場編碼取得主力合約編碼
 If sMarketCode="" then
  sMarketCode="ZJ"
 End if 
 
 n = marketdata.GetReportCount(sMarketCode)
 
 For j = 0 To n - 1
  Set report1 = marketdata.GetReportDataByIndex(sMarketCode, j)
  suffixlabel = Right(report1.Label, 2)
  If sStockPre=left(report1.Label,len(sStockPre)) then
   If suffixlabel = "00" Then
    ZhuLiVol=report1.volume
   End If
 
   If cdbl(suffixlabel) >= 1 And cdbl(suffixlabel) <= 12 Then
    If report1.volume = ZhuLiVol Then
     ZhuLiCode = report1.Label
     'application.MsgOut ZhuLiCode
     exit for
    End If
   End If
  End if 
 Next
End Sub