Correction du bug de date VB6?

Il semble que VB6 ne peut pas comparer correctement les dates dans certaines situations. Y a-t-il des solutions à cela?Correction du bug de date 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

La sortie correcte devrait être:

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

mais la production réelle est:

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

Y at-il moyen de contourner cela, ou est-il un moyen d'éviter cette situation (peu importe ce que c'est)?

Source

2010-07-07 derekerdmann

Vous devez utiliser la fonction DateDiff. Il peut être adapté à tout niveau de précision dont vous avez besoin.

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

Source

2010-07-07 15:51:41

Wow, c'est une solution simple. Je souhaite que vous n'ayez pas à l'utiliser, mais je suis content qu'il soit là. Merci! – derekerdmann

"Traiter vos dates comme doubles" qu'ils sont derrière la scène

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

Source

2010-07-07 15:57:11 wqw

Ouais, ça marcherait, mais j'aime la solution qui n'a pas besoin d'être moulée. – derekerdmann

Ok, alors vous avez datiff. La soustraction de dates 'Date - Date' est implicitement castée en' Double', essayez '? typename (date1-date2) 'dans la fenêtre immédiate. C'est comme penser que 'Date = Date' est implicitement casté en' Boolean'! :-)) – wqw

Correction du bug de date VB6?

Répondre

Questions connexes