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


昨天晚上写了个利用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”形式的,不然会出现类型不匹配的错误。

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

分享到:

9 条评论

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

昵称
  1. 卤菜培训

    以后看看你的代码 学习一系

  2. 小小鱼

    说实话 这个代码看着像数据库的 又像VB的~~~正好都不是很清楚╮(╯▽╰)╭

    1. Kael.Z

      恩,跟VB基本同门,语法都差不多,这个完全寄生于Excel

  3. 油烟机什么牌子好

    留言是种美德,写点什么…

  4. 识字

    好久没逛博客了,呵呵,我来了。

  5. 小易

    饿 好深奥 不知道干嘛用的…..

    1. Kael.Z

      Excel电子表格的宏代码,为了解决重复作业,办公自动化吧~

  6. 神经衰弱的症状

    虽然看不太懂代码,还是特地来支持你一下

    1. Kael.Z

      以后我写上说明你就能看懂了,哈哈~