欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


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

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2487人关注过本帖平板打印复制链接

主题：HoldingCalc
帅哥哟，离线，有人找我吗？
szp
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：130 积分：400 威望：0 精华：1 注册：2013/3/3 18:05:14 		HoldingCalc  发帖心情 Post By：2014/2/27 13:45:00 [只看该作者]

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=0
shortPosition=1
closableLongPosition=0
closableShortPosition=1

实际:有一手空单持仓,但已挂出平仓单,没有成交,也就是 HoldingCalc 无效?
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 5 次数据查询