高级功能研发区-VBA取夜盘铜铅等品种的涨跌停价格不对金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  VBA取夜盘铜铅等品种的涨跌停价格不对  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=60150)

--  作者：董小球
--  发布时间：2013/12/20 10:42:10
--  VBA取夜盘铜铅等品种的涨跌停价格不对

用VBA取夜盘铜铅等品种的涨跌停价格与盘口信息中的涨跌停数值不同，如果是取RB等普通非夜盘品种，就没有错误。

代码如下：

Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,MyAccount) \'*取当前持仓合约信息
CurCode=Code
CurMarket=Market
BuyHold=BuyHolding
SellHold=SellHolding

set info=MarketData.GetReportData(CurCode,CurMarket) \'取涨跌停价
stoph=info.UpperLimitPrice \'涨停价
stopl=info.LowerLimitPrice \'跌停价

--  作者：王锋
--  发布时间：2013/12/20 10:46:39
--

set info=MarketData.GetReportData(CurCode,CurMarket)

这里加上调试代码

application.msgout CurCode

application.msgout CurMarket

看看是不是市场搞错了依旧读的上海老市场的代码