Déterminer si une année est bissextile en julien et grégorien
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
- Déterminer si une année est bissextile en julien et grégorien
- Combien de semaine dans une année - Forum C / C++ / C++.NET
- Vba année en cours ✓ - Forum Visual Basic
- Nombre de jours dans une année ✓ - Forum VB.NET
- Keno statistiques année - Forum C# / .NET
- Convertir date gregorien en hegire ✓ - Forum VB.NET
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.