日期的任意等价

时间:2016-05-11 17:43:51

标签: excel vba

我在VBA中的代码如下,以检查A列中的每个日期时间是否在之前的15分钟之后:

  For j = 2 To 18
       If Range("A" & j).Value <> DateAdd("n", 15, Range("A" & j - 1).Value) Then   
            Range("C" & j).Value = DateAdd("n", 15, Range("A" & j - 1).Value)
            Range("D" & j).Value = Range("A" & j).Value
       End If
  Next j

当我在C列和D列中没有任何内容时,这是我的输出: Output

为什么即使输出结果显示日期不相等,也会出现重复出现的模式?

0 个答案:

没有答案