[Comparaison] Date BDD -> VB

**GarsDuCalvados** · 28/03/2007, 08h41

Bonjour;
j'ai un traitement qui se fait sur une Appli suivant la valeur de la date du jour à la date stocké dans la BDD (inferieur, supérieur, egale).

La date stocké dans la BDD est au 31/06/07 en ce moment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    date1 = Now()
    MsgBox Int(date1)
 
    date2 = #6/31/2007# 'Normalement je vais chercher la date dans une BDD
    MsgBox Int(date2)
    If Int(date1) > Int(date2) Then
        MsgBox "date1 superieur à date2"
    Else
        If Int(date1) < Int(date2) Then
            MsgBox "date2 superieur a date1"
        Else
            MsgBox "les dates sont les meme"
        End If
    End If

Est ce que le format est bon en comparant une date d'une BDD au format d'une date recupéré par la fonction now() : dd/mm/yyyyou mm/dd/yyyy.

Merci.

.Matthieu

**Macc** · 28/03/2007, 09h18

Ca ne pose aucun problème. Par contre tu peux avoir un soucis en utlisant now() car cette fonction te renvoi la date et l'heure. Utilise plutôt la fonction date() qui ne te renvoi que la date.
2éme remarque: pour comparer des dates, utilise de préférence datediff() (regarde son fonctionnement dans l'aide VBA)