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

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

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