获取指定时间的间隔-补充


昨天晚上写了个利用DATEDIFF函数计算间隔天数

今天发现有一点太不方便了,为了一时的计算方便,将指定日期直接固化在代码上了,这样一想要想重新计算别的日期还得改代码。
不方便!
本想写点日记的,没思路。那就继续写点补充代码吧。
这次补充完全实现个性化定义。
上2个代码。
 
  1. Sub 获取指定时间间隔1()   
  2. ' 获取指定时间间隔 Macro   
  3. 由 Kael.Z录制,时间: 2011/9/19  
  4. Dim rs As Integer   
  5. Dim sj As Date   
  6. sj = InputBox("请输入指定日期:", "获取间隔时间")   
  7. rs = DateDiff("d", sj, Now)   
  8. MsgBox sj & "距今已有:" & rs & "天"  
  9. End Sub  

上面这个是指定时间到今天的方案。

 
  1. Sub 获取指定时间间隔2()   
  2. ' 获取指定时间间隔 Macro   
  3. ' 宏由 Kael.Z录制,时间: 2011/9/19  
  4. Dim rs As Integer   
  5. Dim sj1 As Date   
  6. Dim sj2 As Date   
  7. sj1 = InputBox("请输入指定开始日期:", "获取间隔时间")   
  8. sj2 = InputBox("请输入指定终止日期:", "获取间隔时间")   
  9. rs = DateDiff("d", sj1, sj2)   
  10. MsgBox sj1 & "距" & sj2 & "已有:" & rs & "天"  
  11. End Sub   

上面这个代码为2个指定时间,完全可以自定义。

图就不上了,效果一样!

需要注意的是sj定义为日期类型,在输入时一定要输入成“2011-1-1”形式的,不然会出现类型不匹配的错误。

好了,就写到这里,再次折腾疲惫的大脑!有需要的拿走!

分享到: