使用Order对象的Contract方法,下面的示例代码
private iMinTick,iMultipliter '最小跳点,合约乘数(需要定义为模块级变量)
Sub GetContractInfo(sCode,sMarket) '获取合约的信息
'Application.MsgOut sCode & "," & sMarket
on error resume next
Call Order.Contract(sCode,sMarket,Multipliter,MinTick,ShortPercent,LongPercent)
iMultipliter=Multipliter
'application.MsgOut iMultipliter
iMinTick=MinTick
End Sub
如:要获取股指的最小跳点和合约乘数,GetContractInfo "IF01","ZJ"