获取指定间隔数的日期

间隔数
发现近阶段特喜欢写
早几天写了两篇关于时间间隔的博文,分享了几个间隔代码。
今天在看书的时候,又萌发了一个主意。
指定一个时间,快速往前或往后推算指定的日期
凭着我那三脚猫的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. 保健器材






    !!