Discussion :

[Theocourant]

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]

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

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

[sovo]

super astucieu JMF (comme d'habitude).

[Theocourant]

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]

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]

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"

[Tofalu]

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]

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]

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.