以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  VBA中 怎么调用 最小变动价位  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=55460)
--  作者：qq代人发帖
--  发布时间：2013/8/21 8:36:28
--  VBA中 怎么调用 最小变动价位
VBA中 怎么调用 最小变动价位
--  作者：王锋
--  发布时间：2013/8/21 9:57:16
--  

Order 对象

 

Contract            取指定品种的合约信息
--  作者：rushtaotao
--  发布时间：2013/8/21 10:04:11
--  

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