获取指定间隔数的日期

间隔数
发现近阶段特喜欢写
早几天写了两篇关于时间间隔的博文,分享了几个间隔代码。
今天在看书的时候,又萌发了一个主意。
指定一个时间,快速往前或往后推算指定的日期
凭着我那三脚猫的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
间隔输入正数表示当前指定日期往后推算天数,负数代表往回推算,时间倒流啊。呵呵!
代码在一时拼写的,可能看着不够舒服,意思是应该表达到了,有需要的拿走。
本文纯属折腾。
分享到: