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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请问在自定义函数里,时间的判断是“time>093000”--如果时间大于早上九点半?

   

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


  共有6202人关注过本帖树形打印复制链接

主题:请问在自定义函数里,时间的判断是“time>093000”--如果时间大于早上九点半?

帅哥哟,离线,有人找我吗?
leechoe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:127 积分:535 威望:0 精华:0 注册:2011/7/18 11:01:56
请问在自定义函数里,时间的判断是“time>093000”--如果时间大于早上九点半?  发帖心情 Post By:2011/12/9 16:33:39    Post IP:218.15.237.202[只看该作者]

请问在自定义函数里,时间的判断是“time>093000”--如果时间大于早上九点半?  我试了一下不行哦

 回到顶部
帅哥哟,离线,有人找我吗?
26327756l
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/12/9 16:48:46    Post IP:58.246.57.26[只看该作者]

时间的判断是 if time>093000 then 执行语句;

在自定义里要返回数据的,你请说明,你的问题

[此贴子已经被作者于2011-12-9 16:56:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
leechoe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:127 积分:535 威望:0 精华:0 注册:2011/7/18 11:01:56
  发帖心情 Post By:2011/12/9 16:59:21    Post IP:218.15.237.202[只看该作者]

我知道要返回数据,我只是想表达:在9点半后才开始执行语句

请问是“if time>093000 then **** end if” 这样表达吗?


 回到顶部
帅哥哟,离线,有人找我吗?
26327756l
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/12/9 17:19:46    Post IP:58.246.57.26[只看该作者]

那就是 if time>093000 then 

           begin

              9点半后才开始执行语句 放在这里 就可以了

           end


 回到顶部
帅哥哟,离线,有人找我吗?
leechoe
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:127 积分:535 威望:0 精华:0 注册:2011/7/18 11:01:56
  发帖心情 Post By:2011/12/9 17:57:01    Post IP:218.15.237.202[只看该作者]

还是不行啊。我是这样做的,以下是自定义函数里的代码:(为了实现,在9:30之前返回0,9:30之后返回1)

 

Function shijian(Formula,close,num)

            DataCount = UBound(close)   
            Dim ResultMa   
            Redim ResultMa(DataCount)   
            For i = num-1 To Formula.DataSize-1       
            Count = 0
     
            if time>093000 then  '如果时间大于9点半Count =1
            Count =1
            end if
           
           ResultMa(i) = Count  
           Next   
           shijian = ResultMa 
           
   End Function

 

 

 

技术指标处调为:

abc:shijian(close,1);

 

 

 

结果图像画出来是一条值为0的直线。我预期的结果是:在9:30取得的值为0,在9:30之后取得的值为1


 回到顶部
帅哥哟,离线,有人找我吗?
fly
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:5082 积分:17642 威望:0 精华:6 注册:2010/7/15 9:05:58
  发帖心情 Post By:2011/12/12 10:54:49    Post IP:58.246.57.26[只看该作者]

您使用的TIME...这是金字塔PEL语言里定义好的时间函数,是不能直接在VBS中使用的.

 

在VBS语言里,看能否找到本地计算机时间对应的---时间对象,或者类似的时间方法.做为自定义函数的时间判断.



金字塔—专业程序化交易量化投资平台

客户服务部

-----------------------------------------------------------

欢迎您参加我公司的技术培训,具体培训需求请发邮件到

service@weistock.com

您的宝贵建议或者投诉,请发往邮箱:weiwei@weistock.com

 回到顶部
帅哥哟,离线,有人找我吗?
26327756l
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/12/12 11:18:36    Post IP:58.246.57.26[只看该作者]

VBA中的time函数 返回的数据格式是这样的(11:14:12

不是pel中的111412

所以使用的时候要去 转换一下,second(time)获取秒

                                         Minute(time)获取分钟

                                         hour(time)获取小时


 回到顶部