Determiner si une année est bissextile
Contenu du snippet
Public Function IsLeapYear(ByRef d As Variant) As Boolean Select Case VarType(d) Case vbDate: Dim f&: f = Year(d): IsLeapYear = ((f Mod 4 = 0) And (f Mod 100)) Or (f Mod 400 = 0) Case vbLong, vbInteger, vbByte: IsLeapYear = ((d Mod 4 = 0) And (d Mod 100)) Or (d Mod 400 = 0) End Select End Function
Compatibilité : VB6, VBA, VBScript
Disponible dans d'autres langages :
A voir également
- Determiner si une année est bissextile
- 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
- L'année commerciale compte combien de jours - Forum Delphi / Pascal
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.