继续Order对象
2、获取指定合约的信息,包括合约最小跳动单位,合约保证金比例、合约乘数。
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
本例使用变量来存储合约信息的4个值,所以,变量定义置于过程顶端,调用本过程之后,变量就存储了该合约的对应值,其他过程就可以直接使用了。
出处:http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=11642&authorid=0&page=1&star=1