Фиксация ошибки VB6 Date?

Question

Кажется, что VB6 не может правильно сравнивать даты в некоторых ситуациях. Есть ли какие-либо решения?

Private Sub CheckDate() 

    date1 = #7/6/2010 2:00:00 PM# 
    Debug.Print "Date 1: " + CStr(date1) 

    date2 = DateAdd("h", -8, #7/6/2010 10:00:00 PM#) 
    Debug.Print "Date 2: " + CStr(date2) 

    Debug.Print "Equal? " + CStr(date1 = date2) 

End Sub 

Правильный вывод должен быть:

Date 1: 7/6/2010 2:00:00 PM 
Date 2: 7/6/2010 2:00:00 PM 
Equal? True 

но реальный выход:

Date 1: 7/6/2010 2:00:00 PM 
Date 2: 7/6/2010 2:00:00 PM 
Equal? False 

Есть ли способ обойти это, или есть ли способ избежать этой ситуации (что бы это ни было)?

Answer 1

Вы должны использовать функцию DateDiff. Он может быть адаптирован к любому уровню точности, который вам нужен.

http://www.vb6.us/tutorials/learn-howto-use-visual-basic-datediff-function

Answer 2

«Рассматривать как двойников ваши даты», которые они находятся за сценой

Debug.Print "Equal? " + CStr(Abs(date1 - date2) < 0.000000001)