date的任意等价

我在VBA中的代码如下，以检查列A中的每个date时间是之前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： 输出

为什么在date不相同的情况下，即使输出显示它们是相同的，它们也是反复出现的模式？