HoldingCalc

作者：金字塔來源：cxh99.com 發布時間：2014年03月24日

咨詢內容： Sub Test()
dim longPosition,shortPosition,closableLongPosition,closableShortPosition dim longCost,longTodayPosition,shortCost,shortTodayPosition,pnl,usedMargin dim ret ret=0 longCost=-1 Order.HoldingCalc=1 ret=Order.HoldingInfoByCode2("IF03","ZJ",longPosition,longCost,longTodayPosition,shortPosition,shortCost,shortTodayPosition,pnl,usedMargin) if ret=0 and longCost=-1 then application.MsgOut "獲取持倉信息失敗" else ret=0 longCost=-1 Order.HoldingCalc=0 ret=Order.HoldingInfoByCode2("IF03","ZJ",closableLongPosition,longCost,longTodayPosition,closableShortPosition,shortCost,shortTodayPosition,pnl,usedMargin) if ret=0 and longCost=-1 then application.MsgOut "lfont-family: Verdana;"> application.MsgOut "shortPosition=" & shortPosition application.MsgOut "獲取可平持倉信息失敗" else application.MsgOut "lfont-family: Verdana;"> application.MsgOut "shortPosition=" & shortPosition application.MsgOut "closableLfont-family: Verdana;"> application.MsgOut "closableShortPosition=" & closableShortPosition end if end if End Sub
結果:
longPosition=0shortPosition=1closableLongPosition=0closableShortPosition=1
實際:有一手空單持倉,但已掛出平倉單,沒有成交,也就是 HoldingCalc 無效?
金字塔客服：
3.1版確實有這個問題，3.11BETA3版問題已經解決，請等待發布的新版