VB6 날짜 버그 수정?

Question

VB6에서는 일부 상황에서 날짜를 올바르게 비교할 수없는 것으로 보입니다. 이것에 대한 해결책이 있습니까?

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

그러나 실제 출력은 다음과 같습니다 :

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? 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)