Discussion :

[najoua01]

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

Code :

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

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

[Treize_]

Bonjour,

tu as essayé :

Code :

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

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

[najoua01]

merci Treize_

Code :

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

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

[Danyel]

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 ?

[nomadsoul68]

salut,

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

essai avec sa :

Code :

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

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....

[Danyel]

Code :

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

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 ...

[getule]

je te propose ça

Code :

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

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

[najoua01]

merci à vous le code ça marche très bien

[najoua01]

autre question svp
quand je veux faire la condition entre deux date (mai 2011 à mai 2020)
merci d'avance

[Treize_]

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

Sois plus précis dans tes questions, tu gagneras du temps ..

[najoua01]

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

[Treize_]

Code :

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

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

[najoua01]

voici le dernier code a moi

Code :

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

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

[Treize_]

Code :

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

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

[najoua01]

j'eassaié ton code Mr.Treize_ mais ça amrche pas

[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.

[Tchaill39]

Bonjour.

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

Code :

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

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

[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