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
可以用sumproduct函数
