获取指定间隔数的日期

• 宏代码 • 5 条评论 • •5,479 次查阅
间隔数
发现近阶段特喜欢写宏。
早几天写了两篇关于时间间隔的博文，分享了几个间隔宏代码。
今天在看书的时候，又萌发了一个主意。
指定一个时间，快速往前或往后推算指定的日期？
凭着我那三脚猫的VBA基础，凑了个宏，基本能实现输出，满足需要。
上代码：
 
  1. Sub 获取指定时间日期()   
  2. ‘ 获取指定时间日期 Macro   
  3. ‘ 宏由 Kael.Z 录制，时间: 2011/9/21  
  4. Dim rs As Date   
  5. Dim sj As Date   
  6. Dim jg As Integer   
  7. sj = InputBox("请输入指定时间：", "请指定时间")   
  8. jg = InputBox("时间间隔偏移（可正负）：", "时间偏移量")   
  9. rs = DateAdd("d", jg, sj)   
  10. If jg >= 0 Then   
  11. MsgBox sj & Space(1) & Abs(jg) & "天之后是：" & rs   
  12. Else   
  13. MsgBox sj & Space(1) & Abs(jg) & "天之前是：" & rs   
  14. End If   
  15. End Sub   
效果
效果2
间隔输入正数表示当前指定日期往后推算天数，负数代表往回推算，时间倒流啊。呵呵!
代码在一时拼写的，可能看着不够舒服，意思是应该表达到了，有需要的拿走。
本文纯属折腾。
分享到：

5 条评论

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

昵称▼
  1. 晓伍

    很有意思的说，其实excel功能很强大，很多软件的计算内核基于此诞生。

    1. Kael.Z

      呵呵，是很强大，不然早被取代了

  2. 北京个人写真

    还可以吧，呵呵！

  3. 北京婚纱摄影

    呵呵 还真的是看不明白！

  4. 保健器材

    有
    些
    专
    业
    啊
    ！！