HoldingCalc - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

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 Sub

结果:

longPosition=0

shortPosition=1

closableLongPosition=0

closableShortPosition=1

实际:有一手空单持仓,但已挂出平仓单,没有成交,也就是 HoldingCalc 无效?

主题：HoldingCalc