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