Déterminer si une année est bissextile en julien et grégorien

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 805 fois - Téléchargée 9 fois

Contenu du snippet

Sub Bissextile(An As Integer, Ere_Calende As Integer)
' Calcule si l'année est bissextile
' Pour savoir si une année est bissextile, deux possibilités de calcul
' Ere_Calende = 0 (période grégorienne): bix = 1 si An est divisible par 4
'                  sauf si les centaines sont égales à 0 alors bix = 1 si An
'                  est divisible par 400
' Ere_Calende = 1 (période julienne): bix = 1 si An est divisible par 4
' Au cas où les conditions ne sont pas remplies, bix = 0
  bix = Sgn(IIf((An Mod 100) = 0 And Ere_Calende = 0, An Mod 400, An Mod 4)) Xor 1
' Sortie => bix = 1 si année bissextile sinon bix = 0
End Sub


Compatibilité : VB6

A voir également

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.