以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  cdate(time)夜盘时间怎么取值呢？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=93335)
--  作者：tianhm
--  发布时间：2016/2/29 22:32:49
--  cdate(time)夜盘时间怎么取值呢？
cdate(time)白天开市时间可以设置成
if (cdate(time)>cdate("09:00:00") and (cdate(time)<=cdate("10:15:00"))  or (cdate(time)<=cdate("11:30:00") and cdate(time)>cdate("10:30:00")) or (cdate(time)<=cdate("15:00:00") and cdate(time)>cdate("13:30:00")) then
不过对于螺纹的夜盘时间怎么写呢？
我写成
 (cdate(time)<=cdate("24:00:00"))  报错
编译器错误‘13’
类型不匹配：‘cdate’

所以无法用
if (cdate(time)<=cdate("24:00:00")  and cdate(time)>cdate("21:00:00"))  or (cdate(time)<=cdate("01:00:00")  and cdate(time)>cdate("00:00:00")) 
表示夜盘时间

请问夜盘时间怎么写呢？
--  作者：admin
--  发布时间：2016/3/1 0:31:52
--  

时间的格式上是没有24点的，建议你使用金字塔时区，这样引用时间会更加方便
--  作者：tianhm
--  发布时间：2016/3/1 7:19:22
--  
金字塔时区怎么引用？哪里有详细说明？怎么引用能详细说说吗？
--  作者：admin
--  发布时间：2016/3/1 10:39:38
--  

http://www.weistock.com/bbs/dispbbs.asp?boardid=16&Id=88505 问题18

 

金字塔时区下使用夜盘就简单了，只要引用1点到5点就可以了，不需要考虑跨0点的问题
--  作者：tianhm
--  发布时间：2016/3/1 20:15:38
--  
不对呀，软件本来选的就是“交易所/金字塔时区（推荐）”，因为缺省的就是这个
但cdate(time)取的还是计算机的时间
--  作者：admin
--  发布时间：2016/3/1 20:42:56
--  

你可以具体描述一下你想怎么取时间，不然我们这里没法给你准确的帮助
--  作者：tianhm
--  发布时间：2016/3/1 21:25:45
--  
就是用
if (cdate(time)<=cdate("24:00:00")  and cdate(time)>cdate("21:00:00"))  or (cdate(time)<=cdate("01:00:00")  and cdate(time)>cdate("00:00:00")) 
之类的判断呀
但是用application.MsgOut cdate(time)显示的都是计算机时间而不是+4个小时的时间，怎么办？
      if (cdate(time)<=cdate("23:59:59") and cdate(time)>cdate("21:00:00")) then 
    set Report1 = marketdata.GetReportData(laoheyue,laoshichang)
--  作者：admin
--  发布时间：2016/3/1 22:25:48
--  

有时区转换函数的，比如

 

Set MarketInfo = marketdata.GetMarketInfo("AG","SQ") \'取上期夜盘市场市场信息
Application.MsgOut MarketInfo.TimeZoneConver(Now,0) \'将当前计算机是转换成上期夜盘市场时区

[此贴子已经被作者于2016/3/1 22:25:57编辑过]
--  作者：tianhm
--  发布时间：2016/3/2 7:56:19
--  

Set MarketInfo = marketdata.GetMarketInfo("AG","SQ") \'取上期夜盘市场市场信息
Application.MsgOut MarketInfo.TimeZoneConver(Now,0) \'将当前计算机是转换成上期夜盘市场时区


显示的是日期+时间，2016/3/2 11:55:16

我想只显示时间不显示日期即11:55:16怎么写？
--  作者：yukizzc
--  发布时间：2016/3/2 9:39:45
--  

ti =  MarketInfo.TimeZoneConver(Now,0) \'将当前计算机是转换成上期夜盘市场时区
Application.MsgOut FormatDateTime(ti,3)

看下formatdatetime这个函数