Determiner si une année est bissextile
Contenu du snippet
Public Function IsLeapYear(ByVal vzInput As Variant) As Boolean
Dim nYear As Integer
If VarType(vzInput) = vbDate Then
nYear = DatePart("YYYY", vzInput)
ElseIf IsNumeric(vzInput) Then
nYear = vzInput
Else
Exit Function
End If
IsLeapYear = IsDate(nYear & "-02-29")
End Function
Compatibilité : VB6, VBA
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.