Contrôler une date
Fermé
Kheireddine
-
31 déc. 2020 à 10:11
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 31 déc. 2020 à 10:23
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 31 déc. 2020 à 10:23
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
31 déc. 2020 à 10:23
31 déc. 2020 à 10:23
Bonjour,
? TestDate(CDate("03/01/2021"), 3)
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)