Comment savoir si une année est bisextile [FAQ]

**Theocourant** · 31/07/2006, 11h10

Bonjour,

Voici le code d'une fonction que j'ai développé suite à ce sujet.

Ce code pourrait entrer dans la FAQ ou les sources pour comme l'indique le titre :

Q: Comment savoir si une année est bisextile ?

R: Grâce au code suivant, il est possible de déterminer si une année est bisextile à partir d'une date :

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
Function IsBisextil(maDate As Date) As Boolean
'Fonction de contrôle de la bisextilité d'une année à partir d'une date
 
'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
        IsBisextil = True
    Else
        IsBisextil = False
    End If
 
End Function

Bonne journée

Théo

**Asdorve** · 31/07/2006, 14h41

Intéressant, ça peut être utile, je mets ça au chaud dans un coin.

**jmfmarques** · 31/07/2006, 14h54

Intéressant, en effet...
intéressant également d'y aller ainsi, non ?

Code :

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

1
2
3
4
5
6
Private Sub Command3_Click()
   annee = "2104"
   quoi = "non"
   If IsDate("29/02/" & annee) Then quoi = "oui"
   MsgBox quoi
End Sub

et de laisser VB voir si oui ou non ...

**sovo** · 31/07/2006, 15h18

super astucieu JMF (comme d'habitude).

**Theocourant** · 31/07/2006, 16h13

Envoyé par jmfmarques

Intéressant, en effet...
intéressant également d'y aller ainsi, non ?

Code :

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

1
2
3
4
5
6
Private Sub Command3_Click()
   annee = "2104"
   quoi = "non"
   If IsDate("29/02/" & annee) Then quoi = "oui"
   MsgBox quoi
End Sub

et de laisser VB voir si oui ou non ...

il est vrai qu'il est simple de faire comme cela mais je dirais que mon code a plus une portée générale sur la détermination d'une année bisextile.

J'aurais pu faire tout un laïus sur le pourquoi du comment mais je ne m'appelle pas wikipédia ...

Ce code permet de faire passer un petit peu de culture générale dans ce monde de ... programmation.

**jmfmarques** · 31/07/2006, 16h17

Tu as raison, Théo : un peu de culture générale n'est jamais inutile.
Ce thème et les explications "à la mode Wilkipédia" ont été abordés sur ce forum à l'occasion d'un sujet tournant, si ma mémoire ne me fait pas défaut, autour de l'âge, au jour près.

**Jihnn** · 01/08/2006, 18h26

jmfmarques, j'ai testé ton code et... il ne marche pas :S

Code :

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

MsgBox IIf(IsDate("29/02/5"), "Oui", "Non")

Il me sort "Oui"

**jmfmarques** · 01/08/2006, 18h52

Sauf que le code que tu me "prêtes", Thunder, n'est pas du tout le mien !!!
Tu dois confondre avec un autre... il me semble !

Le mien est là et... essaye donc de le mettre en défaut, pour voir !
http://www.developpez.net/forums/sho...47&postcount=3

Je crois me rappeler avoir vu un truc qui ressemblait au code que tu dénonces, et crois me rappeler qu'il était signé Catbull.

Je ne retrouve toutefois pas la réponse de Catbull, et donc son code ...(effacé ? par qui ? pourquoi ?...et surtout pourquoi sans rien dire ?

)

**Tofalu** · 01/08/2006, 19h51

Envoyé par jmfmarques

Intéressant, en effet...
intéressant également d'y aller ainsi, non ?

Code :

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

1
2
3
4
5
6
Private Sub Command3_Click()
   annee = "2104"
   quoi = "non"
   If IsDate("29/02/" & annee) Then quoi = "oui"
   MsgBox quoi
End Sub

et de laisser VB voir si oui ou non ...

annee = "05"
quoi = "non"
If IsDate("29/02/" & annee) Then quoi = "oui"
MsgBox quoi

ça me sors oui

**jmfmarques** · 01/08/2006, 20h33

Bonjour Tofalu... bonjour ...
A ma connaissance : le format de "05" (ce que tu écris... et celui de "2004" que j'ai écrit.... sont deux choses bien différentes !

Fais donc ton essai avec "2005", s'il te plait..., pour correspondre avec ce que j'ai écrit ...et être en paix avec toi-même

dois-je te rappeler certaines choses, à propos des millésimes sur 2 chiffres ?
Est-il nécessaire de parler à nouveau du bug de l'an 2000 et de dire quelle en était la raison principale ? (peut-être les millesimmes sur 2 chiffres dans certaines bases de données et dans certains programmes... non ?)

Quand au code repris par Thunder... il n'est pas de moi (et j'ai chez moi, sur mon PC, le code et le message...). Je ne peux toutefois que laisser le soin à l'auteur de ce code de dire pourquoi il l'a effacé sans un mot et sans se préoccuper de ce que d'autres, comme thunderstroke, auraient pu s'en inspirer, le prenant pour de l'argent comptant

**jmfmarques** · 01/08/2006, 20h49

Maintenant, Tofalu :
comme j'aime la précision et que je veux saluer ton intérêt pour VB,
essaye de voir ce que te renvoie ton "29/02/05"n sous VB, sur une machine où le millésime est fixé à 4 chiffres ... tu auras quelques surprises

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
   annee = "05"
   MsgBox DateValue("29/02/" & annee)
   MsgBox DateValue("29/02/05")
End Sub

Information amicale aux nouveaux intérêts manifestés pour VB.

**Tofalu** · 01/08/2006, 21h14

Je veux juste dire par là qu'un calcul avec le modulo sera toujours correct quelque soit le nombre de chiffre passé pour l'année. Sachant que l'utilisateur à souvent tendance à ne saisir que deux chiffres ...

**jmfmarques** · 01/08/2006, 22h13

J'aime ton souci de précision, tofalu.
Il se trouve que j'aime aussi la précision et que Theocourant nous a démontré qu'il était dans le même cas et qu'il avait la volonté de nous expliquer dans le détail comment se faisait cette détermination.

As-tu donc réfléchi, Tofalu, à ce que devient cette précision avec un millésime sur 2 chiffres au lieu de 4 ?
Nous allons donc le faire ensemble :

à quelle année peut donc correspondre le millésime 00 ?
2 suppositions parmi des milliers :

1) 00 est mis pour l'année 1400 (divisible par 400)
2) 00 est mis pour l'année 1500 (divisible par 100 et par 4 mais pas par 400)

Et ce : quelles que soient les bonnes ou mauvaises habitudes des uns ou des autres....

Je pense avoir été complet en ce qui me concerne.

**jmfmarques** · 02/08/2006, 08h53

Bonjour,

Je trouve en général mieux le matin comment exposer certaines choses.
Ce sera ici la démonstration s'il en fallait des situations auxquelles peuvent conduire des saisies non rigoureusement contrôlées (obligation de millésime sur 4 chiffres).

une form avec :
- un bouton de commande command1
- une textbox test1 pour saisir une date
- une textbox text2 pour afficher le résultat de la saisie

et le code suivant :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  If IsDate(Text1.Text) Then
    Text2.Text = DateValue(Text1.Text)
  End If
End Sub

que l 'utilisateur saisisse maintenant le 29/02/2005 (qui n'est pas une date existante et donc valide)
mais avec un millésime sur 2 chiffres (donc 29/02/05) et voyons si VB ne va pas penser que cette date inexistante est valide....et... l'enregistrer comme étany le ...05/02/2029
mais gardons-nous de penser que la chose ne se priduirait qu'avec le 29 février !
saisissons, entre des milliers d'autres exemples, le 31 avril 2006 (qui n'existe pas) sous la forme 31/04/06 et..la date sera acceptée et enregistrée comme étant le...06/04/1931 !

recommençons les saisies ci-dessus, mais cette fois-ci avec des millésimes sur 4 chiffres. VB,ne se trompera cette fois-ci pas et refusera la saisie

voilà le genre de situation qui peut être générée lorsque l'on permet une saisie de millésime sur 2 chiffres seulement !

**Theocourant** · 02/08/2006, 08h59

Envoyé par jmfmarques

Bonjour,

Je trouve en général mieux le matin comment exposer certaines choses.
Ce sera ici la démonstration s'il en fallait des situations auxquelles peuvent conduire des saisies non rigoureusement contrôlées (obligation de millésime sur 4 chiffres).

une form avec :
- un bouton de commande command1
- une textbox test1 pour saisir une date
- une textbox text2 pour afficher le résultat de la saisie

et le code suivant :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  If IsDate(Text1.Text) Then
    Text2.Text = DateValue(Text1.Text)
  End If
End Sub

que l 'utilisateur saisisse maintenant le 29/02/2005 (qui n'est pas une date existante et donc valide)
mais avec un millésime sur 2 chiffres (donc 29/02/05) et voyons si VB ne va pas penser que cette date inexistante est valide....et... l'enregistrer comme étany le ...05/02/2029
mais gardons-nous de penser que la chose ne se priduirait qu'avec le 29 février !
saisissons, entre des milliers d'autres exemples, le 31 avril 2006 (qui n'existe pas) sous la forme 31/04/2006 et..la date sera acceptée et enregistrée comme étant le...06/04/1931 !

recommençons les saisies ci-dessus, mais cette fois-ci avec des millésimes sur 4 chiffres. VB,ne se trompera cette fois-ci pas et refusera la saisie

voilà le genre de situation qui peut être générée lorsque l'on permet une saisie de millésime sur 2 chiffres seulement !

Je suis entièrement d'accord, cela reste une logique d'utilisation de dates et de comportement au niveau de VB du traitement de celles-ci. Mon code est d'ailleurs soumis aux même règles. Cela impose une vigilance toute particulière à la définition des dates utilisées.

Théo

**jmfmarques** · 02/08/2006, 09h02

Bonour Theo,

Je n'ai jamais douté une seule seconde de ton souci personnel de rigueur.
Ton premier message mettait ce souci en exergue.
Le présent message confirme ce souci.

Merci d'avoir apporté cette précision sur un aspect important.

**Theocourant** · 02/08/2006, 09h13

Envoyé par jmfmarques

Bonour Theo,

Je n'ai jamais douté une seule seconde de ton souci personnel de rigueur.
Ton premier message mettait ce souci en exergue.
Le présent message confirme ce souci.

Merci d'avoir apporté cette précision sur un aspect important.

C'est toujours un plaisir de pouvoir discuter avec toi. J'apprends énormément.

Théo

**Jihnn** · 02/08/2006, 18h18

Bah oui, jmf, si tu regardes bien j'ai juste adapté ton code avec un IIf ?

Et ça fait le même problème que Tofalu.

Bon, c'est pas si grave, de toute façon ^^

**jmfmarques** · 02/08/2006, 19h46

Hé bé !

j'ai juste adapté ton code avec un IIf ?

Tu as alors de graves difficultés d'adptation... Thunder !

Explique donc comment, en "adaptant", tu es passé de :

Code :

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

1
2
3
4
5
6
Private Sub Command3_Click()
   annee = "2104"
   quoi = "non"
   If IsDate("29/02/" & annee) Then quoi = "oui"
   MsgBox quoi
End Sub

à

Code :

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

MsgBox IIf(IsDate("29/02/5"), "Oui", "Non")

Amuse-toi donc à "mesurer" ce que pense VB de

Code :

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

1
2
3
Private Sub Command1_Click()
  MsgBox DateValue("29/02/5")
End Sub

c'est pour lui une date (le 5 février 2029) mais certainement pas celle que tu crois !
Relis tout et apprends enfin ainsi les risques que tu cours à exprimer de cette façon les dates !

Apprends enfin que chacun est responsable de ses "adaptations" et que, si'il a "adapté" le code d'un autre, il ne "chante" pas que le code de l'autre a un défaut ...
De surcroît, Thunder, tu n'as rien "adapté" toi-même (j'ai sur mon PC un code fort ressemblant, utilisant le IIf, ainsi que le message qui l'accompagnait)
Je ne reviendrai plus sur ce sujet pour le moins malheureux...

**Jihnn** · 02/08/2006, 23h08

Premièrement, excuse-moi, je ne suis pas familier avec les dates. Merci de m'avoir appris cela.
Deuxième, oui je l'ai adapté à partir de ton code. Si quelqu'un d'autre à fait quelque chose de très ressemblant, je suis flatté de "bien" avoir l'adapté.

Edit: Je viens de tester ceci :

Code :

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

MsgBox IIf(IsDate("29/02/1005"), "Oui", "Non")

Il marche. Mais pour moi, un code qui marche, ça marche avec tous les choix possibles (dont 5). Désolé si ce n'est pas comment ça que tu le vois.

Comment savoir si une année est bisextile [FAQ]

Vos contributions VB6

Discussions similaires

Partager

Partager