Discussion :

[andy331]

Bonjour tout le monde!!
J'aimerais savoir pourquoi mon année bissextile vaut tout le temps Faux
En faite je suis dans une TextboxDate (ou je rentre mon jour,mois année)
Et voici le code que j'insere dans ma texteBox:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub TxtDateMailEnvoye_AfterUpdate()
Dim IsBissextile As Boolean
'Les conditions pour avoir une année bisextile sont les suivantes:
' - année divisible par 4 : année bisextile
' - exception : année divisible par 100 : année non bisextile
' - exception de l'exception : année divisible par 400 : année bisextile
 
If Year(maDate) Mod 4 = 0 And (Year(maDate) Mod 100 <> 0 Or Year(maDate) Mod 400 = 0) Then
 IsBisextile = True
Else
 IsBisextile = False

[Jean-Philippe André]

salut,
n'est-ce pas tout simplement du a la mauvaise orthographe de ta variable ?

[andy331]

Non je pense pas j'ai bien tout vérifié!!

[Jean-Philippe André]

peux-tu nous donner ton code actuel stp ?
comme dans ton premier post il y avait un s qui disparaissait dans le nom de variable, j'ai un doute

[andy331]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TxtDateMailEnvoye_AfterUpdate()
 
Dim IsBisextile As Boolean
Dim madate As Date
madate = TxtDateMailEnvoye.Text
 
If Year(maDate) Mod 4 = 0 And (Year(maDate) Mod 100 <> 0 Or Year(maDate) Mod 400 = 0) Then
        IsBisextile = True
    Else
        IsBisextile = False
End If

IsBisextile vaut toujours faux même quand l'année est bisextile

[Jean-Philippe André]

je crois que le and porte prejudice au test,
perso j'utilise

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
Function bissextile(annee As Integer) As Boolean
 
Dim divpar4 As Boolean, divpar100 As Boolean, divpar400 As Boolean
 
' Vérifier la divisibilité
divpar4 = annee Mod 4 = 0
divpar100 = annee Mod 100 = 0
divpar400 = annee Mod 400 = 0
 
' Fixer la valeur de retour
If divpar4 And Not divpar100 Then ' 1er cas
   bissextile = True
Else
   If divpar400 Then  ' 2ème cas
      bissextile = True
   Else
      bissextile = False
   End If
End If
 
End Function