[vb] Comparaison de date

**unfcool** · 29/05/2007, 11h40

Bonjour, voilà, j'ai récupéré le mois et l'année comme ça :

Code :

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

1
2
3
 
MOIS = UserForm1.ListBox3.Value
ANNEE = UserForm1.ListBox4.Value

et je souhaite écrire :

SI MOIS>Mois du jour ET ANNEE > ou = annee du jour
OU ANNEE>annee du jour
ALORS ...

Je ne sais pas comment faire ces comparaisons.
Merci par avance pour votre aide

**random** · 29/05/2007, 12h04

Code :

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

1
2
3
4
 
 
if (MOIS>month(date())  and ANNEE >=year(date())) or 
(ANNEE>year(date())) then ...

**unfcool** · 29/05/2007, 12h52

Merci pour la réponse mais je crois qu'il y a un autre problème c'est que mon MOIS est une chaine de caractère du coup la comparaison marche pas ...
Si quelqu'un peut m'apporter une solution ...

**random** · 29/05/2007, 13h25

elle est comment ta chaine ?

**unfcool** · 29/05/2007, 13h30

Je ne sais pas si ça répond à la question mais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub CommandButton2_Click()
UserForm3.Hide
UserForm1.ListBox3.Clear
UserForm1.ListBox3.AddItem ("JANVIER")
UserForm1.ListBox3.AddItem ("FEVRIER")
UserForm1.ListBox3.AddItem ("MARS")
UserForm1.ListBox3.AddItem ("AVRIL")
UserForm1.ListBox3.AddItem ("MAI")
UserForm1.ListBox3.AddItem ("JUIN")
UserForm1.ListBox3.AddItem ("JUILLET")
UserForm1.ListBox3.AddItem ("AOUT")
UserForm1.ListBox3.AddItem ("SEPTEMBRE")
UserForm1.ListBox3.AddItem ("OCTOBRE")
UserForm1.ListBox3.AddItem ("NOVEMBRE")
UserForm1.ListBox3.AddItem ("DECEMBRE")
 
UserForm1.ListBox4.Clear
UserForm1.ListBox4.AddItem ("2007")
UserForm1.ListBox4.AddItem ("2008")
UserForm1.ListBox4.AddItem ("2009")
UserForm1.ListBox4.AddItem ("2010")
UserForm1.ListBox4.AddItem ("2011")
UserForm1.ListBox4.AddItem ("2012")
UserForm1.ListBox4.AddItem ("2013")
UserForm1.ListBox4.AddItem ("2014")
UserForm1.Show
End Sub
 
 
Private Sub CommandButton3_Click()
Dim MOIS As String
MOIS = UserForm1.ListBox3.Value
ANNEE = UserForm1.ListBox4.Value
 
end sub

Je vais tenter d'expliquer mon application : ma première fenêtre est composée de 2 boutons, lorsque l'on clique sur l'un d'entre eux cela déclenche le code de CommandButton2_Click. On a alors une autre fenêtre qui s'ouvre et l'on doit choisir un mois et une année puis on clique sur un bouton qui donne un résultat. La comparaison de date se fait dans ce dernier bouton.
J'espère que cette brève description facilitera l'aide que l'on pourra m'apporter.