Contrôler une date

Signaler
-
Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
-
Bonjour,

Je suis entrain de développer une application sur VB6, j'ai un souci au niveau du contrôle des saisies des date inférieur à 3 jours.
c-à-d impossible de saisir des informations dans la base dont la date choisie est inférieure à 3 jours de la journée en cours.

meilleures salutations
et merci

1 réponse

Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 549
Bonjour,
Public Function TestDate(D As Date, NbJours As Integer) As Boolean
Dim oDate As Date
    oDate = DateAdd("d", -1 * NbJours, Date)
    TestDate = (D >= oDate)
End Function

? TestDate(CDate("03/01/2021"), 3)