获取指定时间的间隔

间隔
在很早的时间写过关于今天是今年的第几天一篇文章。
利用的是函数公式=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

分享到: