Calcul avec exeption d'une année bissextile

Commenter

Contenu du snippet

Actuellement occupé a faire un calendrier perpétuel, j'ai remarqué que la majorité des codes existants "oublient" les exceptions lors du calcul d'une année bissextile. Voici une fonction qui corrige ce problème. En espérant qu'elle serve à d'autres.

Source / Exemple : 


Public Function IsBissextile(ByVal Annee As Integer) As Boolean
'Pour qu'une année soit bissextile il faut qu'elle réponde aux exigences suivante.
'Qu'elle soit divisible par 4
'Si elle est divisible par 100, elle doit aussi l'être par 400
'ex: 1904 est divisible par 4 ET PAS PAR 100 => bissextile
'    1900 est divisible par 4, par 100 MAIS PAS PAR 400 => pas bissextile
'    2000 est divisible par 4, par 100 ET par 400 => est bissextile
IsBissextile = Annee Mod 4 = 0
If IsBissextile = False Then Exit Function
'N'est pas une année séculaire (divisible par 100)
If Annee Mod 100 > 0 Then Exit Function
'Est une année séculaire ET bissextile
IsBissextile = Annee Mod 400 = 0
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_BenEB)