DTPicker et incrémentation d'année avec VB6

sirahmed -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
J'utilise DTPicker pour choisir une date dans mon interface utilisant VB6 et connecté à une base de donnée access.
Ce DTPicker caractérise une date début choisit et je voudrais savoir comment je peux incrémenter la date d'une année et la mettre dans un textbox pour ndiquer la date fin automatiquement
Merci d'avance
Configuration: Windows Vista
Internet Explorer 7.0

2 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Pour un an..
    Dim dtEcheance As Date
    dtEcheance = DateSerial(Year(dtpicker) + 1, Month(dtpicker), Day(dtpicker))
    A+
    0
    1. sirahmed
       
      merci c'est bien mais j'ai un autre prob c'est de comparer la date de DTPicker avec la date d'aujourd hui
      0
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    If DtPicker = date then debug.print "Egal"
    0

Discussions similaires

musique qui fait tututu
artique25 -
ludeb_0255 -

27 réponses
Cherche Musique Année 80 !
linux21 -
DOMI 30 -

36 réponses
Compatibilité VB6 et Windows 10
machto -
machto -

4 réponses
Je cherche une musique electro qui tuuuuuue
Riiku47 -
Radinoz -

19 réponses
convertir des trimestres en ans mois et jours
Cambouie44 -
Cambouie44 -

6 réponses