新年獻禮:獲取主力合約最簡單的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 - 金字塔客服：
- 用戶回復：
'本過程需要兩個參數
'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 - 網友回復： 不錯，學習了
如果以上指標公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態個股的話，
可以聯系我們相關技術人員 QQ: 262069696 進行 有償 改編！
- 上一篇：插件無法辨認？？不同電腦，不同問題。求助
- 下一篇：沒有了！
相關文章
-
指定的模型還沒有相關內容！
會員登錄/注冊