Fonction de vérification de date

Commenter

Contenu du snippet

Ce bout de code permet de vérifier si une date entrée par l'utilisateur est valide ou non
Si la date est valide, la fonction retourne TRUE sinon elle retourne FALSE

Source / Exemple : 


Public Function verif_date(ByRef la_date As String)
Dim jour As String
Dim mois As String
Dim annee As String
If la_date = "" Then
    Exit Function
End If

jour = Int(Left(la_date, 2))
annee = Int(Right(la_date, 4))
mois = Int(Mid(la_date, 4, 2))

verif_date = True

If mois > 12 Or mois < 1 Then
    verif_date = False
    Else
    Select Case mois
        Case Is = 1, 3, 5, 7, 8, 10, 12
            If jour > 31 Or jour < 1 Then
                verif_date = False
            End If
        Case Is = 4, 6, 9, 11
            If jour > 30 Or jour < 1 Then
                verif_date = False
            End If
        Case Is = 2
            If annee Mod 4 = 0 Or annee Mod 400 = 0 Then
                'Annee bisextile
                If jour > 29 Or jour < 1 Then
                    verif_date = False
                End If
                Else
                ' Annee pas bisextile
                If jour > 28 Or jour < 1 Then
                    verif_date = False
                End If
            End If
    End Select
End If

End Function

A voir également

S'inscrire maintenant

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.