HoldingInfo2和HoldingInfoByCode2返回的同一合约持仓成本不一样 [金字塔]
- 咨询内容:
Sub GetAllHolding()
dim HoldingCount
dim i
dim BuyHolding
dim BuyCost
dim BuyTodayHolding
dim SellHolding
dim SellCost
dim SellTodayHolding
dim PNL
dim UseMargin
dim Code
dim MarketHoldingCount=Order.Holding2()
application.MsgOut HoldingCount
If HoldingCount>0 then
For i=0 to HoldingCount-1
Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market)'如果上面那句能准确提取持仓信息,下面那句可以不要,可是现在的问题是上面的提出的价格不对,只好增加一句,提取上一句返回的Code的持仓信息
Call Order.HoldingInfoByCode2(Code,Market,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin)
application.msgout Code
application.msgout BuyHoldingapplication.msgout BuyTodayHolding
application.msgout BuyCost
application.msgout SellHolding
application.msgout SellTodayHolding
application.msgout SellCost
Next
End if
End Sub请金字塔开发人员测试,并修改这个问题,同时,帮助文件中的这两个方法的例子程序,holding都写成了hoding,导致后面你如果写成正确的单词反而取不到值,也请修改。
如果要自己解决,得取合约信息,通过计算获取正确的开仓价。
buyCost/合约乘数
- 金字塔客服:
问题只在特定情况出现还是每次都出现?
- 用户回复: 每次都出现
- 上一篇:请教VBA文件写入
- 下一篇:请教VC插件开发关于获取账户信息的问题
相关文章
-
没有相关内容