Contrôler une date

Fermé
Kheireddine - 31 déc. 2020 à 10:11
pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 - 31 déc. 2020 à 10:23
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

pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 703
31 déc. 2020 à 10:23
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)
0