VBA时间加减与范围限定我现在有6、7两个月的数据,自变量是每隔两分钟的时间点,因变量是对应数值.我需要从中选取一小段时间（如2013-6-7周三13：00：00-19：00：00）,计算该段时间内因变量

Question

VBA时间加减与范围限定
我现在有6、7两个月的数据,自变量是每隔两分钟的时间点,因变量是对应数值.我需要从中选取一小段时间（如2013-6-7 周三 13：00：00-19：00：00）,计算该段时间内因变量的和；而且需要计算两个月内与之对应前后1、2、3周（两个月会出现7-8个周三）内因变量和的平均值.主要是用到日期加减7天的方法,还有范围限定.求给代码参考!

Answer 1

vba中时间可以直接与数值相加减.


如果你要得到一个时间的 两秒后的时间可以这么写：


Sub a()
    Dim d As Date
    d = #6/7/2013 1:00:00 PM#
    d = d + TimeValue("0:0:2")
    Debug.Print Format(d, "yyyy-mm-dd hh:mm:ss")
End Sub