以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]如何获得和判断该品种的交易时间？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=85172)
--  作者：gzcoolfire
--  发布时间：2015/9/14 16:56:34
--  [求助]如何获得和判断该品种的交易时间？
是否有对象或者属性可以获取当前该品种是否处于交易时间？
或者能查询到该品种的交易时间也可以
--  作者：王锋
--  发布时间：2015/9/14 17:59:56
--  

参考 VBA编程帮助中的

Market 对象

 

示例1

\'在main过程中打印出Main窗格所关联的证券市场标识
sub main()
Set Grid = Technic.GetGridByName("Main")
Set Market = grid.GetMarketinfo()
MsgBox market.id
end sub
　

示例2

sub TEST()
Set MarketInfo = marketdata.GetMarketInfo("AG","SY") \'取上期夜盘市场市场信息
Application.MsgOut MarketInfo.TimeZoneDiff \'显示上期夜盘市场时间与北京时间差多少分钟
END SUB
--  作者：du_zb
--  发布时间：2016/5/25 17:05:48
--  
这个Market对象好像没有判断是否处于交易时段的方法呀？
--  作者：du_zb
--  发布时间：2016/5/25 17:08:36
--  
只有开仓时间和收盘时间两个属性，但这远远不够啊，比如早盘10：15到10：30的非交易时间就判断不出来

另外，我编了这几行代码：
以下内容为程序代码:

1 Set MarketInfo=MarketData.GetMarketInfo("C01","DQ")
2     Application.MsgOut "OpenTime: " & MarketInfo.OpenTime
3     Application.MsgOut "CloseTime: " & MarketInfo.CloseTime

输出显示开盘时间为1:00:00，收盘时间是19:00:00，但明明C01这个合约是没有夜盘的啊，说明开盘时间应该是13:00:00才对啊
--  作者：du_zb
--  发布时间：2016/5/25 17:10:20
--  
修改一下，上面的输出为
OpenTime: 1975/1/1 1:00:00
CloseTime: 1975/1/1 19:00:00
怎么还跑到1975年去了
--  作者：yukizzc
--  发布时间：2016/5/25 17:10:37
--  
vba目前的开收盘时间没有定位到具体品种，按市场来区分