以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  早上不发邮件？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=53841)
--  作者：solarhe2006
--  发布时间：2013/7/11 10:08:19
--  早上不发邮件？

。。。。。。。。。。。。。 

call application.SetTimer(3,1000)\'1000毫秒扫一次

。。。。。。。。。。。。。
  if id=3 then  \'发邮件
 if weekday(now)<>1 and weekday(now)<>7 then    
 if  cdate(time)="08:50:00" or  cdate(time)="15:15:00" then
     sendreport
 end if 
 end if
 end if

 

不知道为什么只有下午发邮件，早上8.50不发邮件？
--  作者：王锋
--  发布时间：2013/7/11 10:16:22
--  

if  cdate(time)="08:50:00" or  cdate(time)="15:15:00" then
     sendreport

    application.msgout "发了"
 end if 

这样加上调试代码后看看早盘有没有执行到
--  作者：solarhe2006
--  发布时间：2013/7/11 10:24:05
--  
如果下午也不能发，我就认了，问题是下午能发，上午不能发？
--  作者：guotx2010
--  发布时间：2013/7/11 11:38:30
--  
"08:50:00" 也加上 Cdate,改为CDate( "08:50:00")试试
--  作者：solarhe2006
--  发布时间：2013/7/12 9:05:13
--  
Cdate,改为CDate( "08:50:00")后早上收到邮件了，谢谢斑竹，但为什么加上CDATE就可以呢？学习下
--  作者：王锋
--  发布时间：2013/7/12 13:55:08
--  

你把你计算机时间改到早上8点，然后

 

    application.msgout cdate(time)

 

看看输出的到底是什么样的日期格式，我觉得做VBA编程的人，应该知道处理这些简单的逻辑思维吧