Contrôler une date

Kheireddine -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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

Réponse 1 / 1
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 766
 
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

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
MFG pas encore arrivée
kkwtanne -
brucine -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses
Désabonnement JM date
Moew__ -
bazfile -

1 réponse