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

2 réponses

Réponse 1 / 2
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
Pour un an..
Dim dtEcheance As Date
dtEcheance = DateSerial(Year(dtpicker) + 1, Month(dtpicker), Day(dtpicker))
A+
0
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
Réponse 2 / 2
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
If DtPicker = date then debug.print "Egal"
0

Discussions similaires

convertir des trimestres en ans mois et jours
Cambouie44 -
Cambouie44 -

6 réponses
recopier une formule sans décalage
aziz_alg80 -
aziz_alg80 -

2 réponses
Cherche chanteur blond des années 70-80
Lilicedu5634 -
ludeb_0255 -

4 réponses
Comment trouver une photo date et heure préci
scoubidou -
sam -

6 réponses
Connaitre la date d'une photo.
Lilouu.UK -
o -

18 réponses