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插件開發關于獲取賬戶信息的問題
相關文章
-
沒有相關內容