获取指定时间的间隔

间隔
在很早的时间写过关于今天是今年的第几天一篇文章。
利用的是函数公式=TEXT(TODAY()-DATE(YEAR(NOW()),MONTH(1),DAY(1))+1,"0")
今天在看VBA,看到一个函数DATEDIFF,就是计算两个时间的差的。
比如今天与2011-1-1差距多少天。
所以就顺手了写了个
上代码:
 
  1. Sub 获取指定时间间隔()   
  2. ‘ 获取指定时间间隔 Macro   
  3. ‘ 由 Kael.Z录制,时间: 2011/9/18  
  4. Dim rs As Integer   
  5. rs = DateDiff("d""2011-1-1", Now)   
  6. MsgBox "2011-1-1距今已有:" & rs & "天"  
  7. End Sub  
效果
有童鞋会说,260?
第几天与差距几天是有那么一天差距的,逻辑得分清楚。
  1. DATEDIFF的类型参数:   
  2. q季;m月;y 一年的日数;d 日;w 一周的日数;ww 周;h 时;n分;s 秒   

不要只看这里只计算了天数,其实还能将上述参数参与进去。

本次纯属构思上的折腾,有需要的可以学习。

Have fun

分享到:

3 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. Pingback: 获取指定时间的间隔-补充 | 印象·派

  2. 婚纱摄影网站

    不错的吗。呵呵顶你

  3. 保健器材

    我想你是最有耐力的!加油啊!