主题：VBA中 怎么调用 最小变动价位

Order 对象

Contract            取指定品种的合约信息

MinTick     输出参数，该品种的最小变动单位

private iMultipliter,iMinTick,iShortPercent,iLongPercent

Sub GetContractHold(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
     iShortPercent=ShortPercent
     iLongPercent=LongPercent
End Sub