Determiner si une année est bissextile
Contenu du snippet
Function IsLeapYear(ByVal vYear As Variant) As Boolean
If VarType(vYear) = vbDate Then
If DateDiff("d", CDate("01/01/" & DatePart("YYYY", vYear)), _
CDate("31/12/" & DatePart("YYYY", vYear))) = 365 Then IsLeapYear = True
ElseIf IsNumeric(vYear) Then
If DateDiff("d", CDate("01/01/" & vYear), _
CDate("31/12/" & vYear)) = 365 Then IsLeapYear = True
End If
End Function
Sub Exemple_Utilisation()
MsgBox IsLeapYear(2004) ' retourne vrai
MsgBox IsLeapYear(Date) ' retourne faux
End Sub
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.