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 :
Bonne journée
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
Théo
Partager