Contrôler une date

Kheireddine -  
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

  • Votes
  • Date
  • Date décroissante
  1. pijaku Modérateur
    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)

    Discussions similaires

    MFG pas encore arrivée
    kkwtanne

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

    5 réponses
    Problème publipostage date de naissance
    garbiche22

    3 réponses
    WHATSAPP La date est incorrecte
    Lyd

    2 réponses
    Abonnement jm date
    Ravesky

    1 réponse