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

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

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

[random]

une variante moins fun ??

Code :

1
2
3
4
 
Function bisextile(madate As Date) As Boolean
bisextile = Day(DateSerial(Year(madate), 3, 0))=29
End Function

[ThierryAIM]

Les 2 solutions sont intégrées pour la prochaine maj de la FAQ ...... VB6 ...

Désolé, je trouve que cette Q/R a mieux sa place dans la section Manipulation de dates de la FAQ VB (sachant bien sûr que le code est exploitable en VBA)

[Theocourant]

Bonjour,

Aucun problème. Je l'avais mis des 2 côtés (VB6 et VBA) car j'avais vu des questions sur ce sujet dans les 2 sous-fora.

Théo