主题：VBA 如何获取可用持仓？也就是PEL中的THOLDING

1.通过 Order.HoldingInfobyCode2 中的 BuyHolding 和 SellHolding 获得实际持仓,也就是PEL中的THOLDING2

2.通过 Order.OrderInfoByCode2 中的 Remaining 获取已挂单但没有成交的数量

3.那么 可用持仓就等于 实际持仓 减去 Remaining 

这样可行吗?

我对 Order.OrderInfoByCode2有疑问,这个方法在文档中说明如下:

OrderInfoByCode2 方法

取指定品种的未成交CTP合约信息

OrderInfoByCode2(Code, Market, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping)

Code         输入参数，指定的品种代码

Market       输入参数，指定的品种市场

ConSign      输出参数，本次委托数量

Filled       输出参数，已成交数量

Remaining    输出参数，未成交数量

Action       输出参数，动作类型 0买入 1卖出

OrderType    输出参数，订单类型 0限价 1市价 2停损 3市价停损

LmtPrice     输出参数，当OrderType等于0时为限价，为3时为停损限价

Account      输出参数，帐户信息

Kaiping      输出参数，开平仓类型 0开仓 1平仓

返回值：      成功返回1，失败返回0

示例：

dim orderid
dim ConSign
dim Filled
dim Remaining
dim Action
dim OrderType
dim LmtPrice
dim Account
dim Kaiping
call order.OrderInfoByCode2("cu09","sq",orderid,ConSign,Filled,Remaining,Action,OrderType,LmtPrice,Account,Kaiping)
'打印输出未成交订单ID（可用此ID进行撤单）
msgbox orderid

从说明和示例中可以看出,这个方法是获取指定合约的未成交委托挂单的信息.

参数说明中没有写 OrderID 这个输出参数,但示例中有写,从示例的最后两行可看出,可用此ID进行撤单.

但这里有一个问题,如果我同一个合约先后有几个不同未成交委托挂单,那返回的信息怎么处理呢,按理应该返回一个数组才对呀.

我的目的:获取指定合约品种的可用持仓

我的思路:可用持仓 = 实际持仓 - 已挂单(平仓单)未成交的数量

已挂单未成交的数量:获取这个数量时,未成交的挂单可能不止一个,那么可以用下面的方法获取

1.通过OrderInfo2函数.遍历所有未成交的挂单(0 至 OrderNum2-1),如果Code为指定的合约品种且Kaiping为平仓,则累加Remaining.  

单一帐户

-------------------------

建议楼主好好看看：http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642