Неправильная оценка окончательной записи в наборе записей

Question

Я пытаюсь перебрать папку outlook и вернуть только те записи с полученным временем, которые больше, чем самые последние данные в таблице.

Код работает для каждой записи, кроме последнейодин, по какой-то причине, как только он доберется до первой записи, If оценивает это как истинное:

olItms.Item(i).ReceivedTime > dDateTime

Даже при том, что оба значения находятся в: 19/06/2019 14: 21: 55

Set rs = db.OpenRecordset("SELECT EmailTime FROM tbl_EngagementData WHERE ReportID = """ & "Open Absence" & """" & " ORDER BY EmailTime DESC")

dDateTime = rs.Fields(0)

For i = olItms.Count To 1 Step -1

    If olItms.Item(i).ReceivedTime > dDateTime Then

        'Do Something

    End If

Next

Я ожидаю, что последняя запись будет оценена как False.

Answer 1

Попробуйте с:

If DateDiff("s", dDateTime, olItms.Item(i).ReceivedTime) > 0 Then