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

Fermé
sirahmed - 10 juin 2008 à 19:11
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
- 11 juin 2008 à 10:45
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

2 réponses

lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
10 juin 2008 à 22:26
Bonjour,
Pour un an..
Dim dtEcheance As Date
dtEcheance = DateSerial(Year(dtpicker) + 1, Month(dtpicker), Day(dtpicker))
A+
0
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
11 juin 2008 à 10:45
If DtPicker = date then debug.print "Egal"
0