获取指定时间的间隔

• 宏代码 • 3 条评论 • •5,330 次查阅
间隔
在很早的时间写过关于今天是今年的第几天一篇文章。
利用的是函数公式=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. 保健器材

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