Contrôler une date

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

Afficher la suite

1 réponse

pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773

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)

Contrôler une date

1 réponse

Discussions similaires

Newsletters