condition de date

Version imprimable

13/05/2011, 15h53
najoua01

condition de date
Bonjour,
Je veux faire un condition sur la date dans mon code
exemple:
Code:

1 2 3 If Date.Now.Month = 5 And Date.Now.Year = 2011 Then MsgBox("Il faut faire la mise à jour") Else
mais le code ça marche pas
Merci d'avance
13/05/2011, 16h11
Treize_
Bonjour,

tu as essayé :
Code:

1 2 3 4 Dim i = date.now.Month if i = 5 then ..
Enfin ce qui est étrange c'est que ton code marche correctement pour moi

merci Treize_

Code:

1
2
3
4
5
6
Dim i = Date.Now.Month
        Dim j = Date.Now.Year
 
        If i = 5 And j = 2011 Then
            MsgBox("Il faut faire la mise à jour")
        Else

mais ça marche pas

13/05/2011, 19h03
Danyel

Citation:

Envoyé par najoua01

mais ça marche pas

Ce genre de message n'apporte rien ...
Dans ce code, il ne peut y avoir d'erreur, au pire la condition n'est pas execute.
Quelles sont les valeurs de i et j ?
13/05/2011, 19h08
nomadsoul68

pb
salut,

J'ai essayer le code de treize_ et sa marche chez moi aussi !!!

essai avec sa :
Code:

1 2 3 4 5 6 7 Dim i = Date.Now.Month Dim j = Date.Now.Year If int(i) = 5 And int(j) = 2011 Then MsgBox("Il faut faire la mise à jour") Else end if
parfois l'ordi ne reconnait pas i et j comme des entier numeraire mais comme une donnée date....aller savoir pourquoi....

Code:

1
2
3
4
5
Dim moment As DateTime = DateTime.Now
Dim day As Integer = moment.Day
Dim year As Integer = moment.Year

If day = 5 and year = 2011 then ...

je te propose ça

Code:

1
2
3
4
5
 
If Month(now()) = 5 And year(now()) = 2011 Then
            MsgBox("Il faut faire la mise à jour")
       Else 
End if

16/05/2011, 12h50
najoua01

merci à vous le code ça marche très bien
16/05/2011, 12h55
najoua01

autre question svp
quand je veux faire la condition entre deux date (mai 2011 à mai 2020)
merci d'avance
16/05/2011, 13h58
Treize_

La condition entre 2 dates, C'est à dire ?

Sois plus précis dans tes questions, tu gagneras du temps .. :ccool:
16/05/2011, 16h01
najoua01

exemple :
quand la date est entre 2011 et 2020
msg("OK")
else
msg("NO")

Code:

1
2
3
4
5
6
7
8
 
 
 
If date1.year  >= 2011 And date2.year <= 2020 Then
            OK
       Else 
            NO
End if

17/05/2011, 10h34
najoua01
voici le dernier code a moi
Code:

1 2 3 If Date.Now.Month > 5 And Date.Now.Year > 2011 Then MsgBox("OK") Else
je veux quand la date dépasse le mois 5 et l'année 2011 m'affiche le message OK
merci d'avance

Code:

1
2
3
If Date.Now.Month > 5 And Date.Now.Year >= 2011 Then
            MsgBox("OK")
        Else

17/05/2011, 16h16
najoua01

j'eassaié ton code Mr.Treize_ mais ça amrche pas
17/05/2011, 16h24
Treize_

Forcement nous sommes encore au mois de mai, on ne l'a pas encore "dépasser" comme tu dis... Sinon tu mets >= et là ça fonctionnera dés le mois de mai, donc dés maintenant.

Bonjour.

Ton code fonctionne chez moi à condition d'ajouter le endif
Code:

1 2 3 4 5 6 7 If Date.Now.Month = 5 And Date.Now.Year = 2011 Then MsgBox("Il faut faire la mise à jour") Else MsgBox("OK") End If
Si cela ne fonctionne pas chez toi : Ton PC est-il à l'heure ? Le Now va chercher l'heure de ton PC

17/05/2011, 17h12
najoua01

merci Tchaill39 mais moi je veux pas l'egalité je veux le date dépasse le mois 4 et l'année 2011 et merci bouceaup v ça fonctionne très bien