以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  判断是否有指定方向的开平仓委托单的代码  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=6380)
--  作者：guotx2010
--  发布时间：2011/4/30 22:56:25
--  判断是否有指定方向的开平仓委托单的代码

Sub HasSubmitOrder(sAction,sKaiping)   \'是否有指定的委托单
 dim OrderID
 dim ConSign
 dim Filled
 dim Remaining
 dim Action
 dim OrderType
 dim LmtPrice
 dim Account
 dim Kaiping
 
 Call Order.OrderInfoByCode2(VBA_Code,VBA_Market, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping)
 If Account=AccountCode And Action=sAction And Kaiping=sKaiping then  \'有指定方向的委托单
      HasWeiTuo=1
 Else
      HasWeiTuo=0 
 End if
End Sub

 

参数说明：

sAction-买卖方向  0买 1卖

sKaiping-开还是平 0开 1平

 

返回值说明：

HasWeiTuo 返回是否有相应的委托单 1为有，0为无   HasWeiTuo应设置public型变量