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

A voir également:

DTPicker et incrémentation d'année avec VB6
Incrémenter un N° de dossier avec lettre, chiffre et année ✓ - Forum - Excel
Numéro auto-incrémenté suivi d'un caractère spécial et l'année ✓ - Forum - VB / VBA
Code obtenir l'année vb6 ✓ - Forum - VB / VBA
Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum - Graphisme
Je commence la nuit je finis le matin on me trouve deux fois dans l’année. qui suis-je reponse ✓ - Forum - Loisirs / Divertissements

2 réponses

Réponse 1 / 2

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+

sirahmed
11 juin 2008 à 10:17

merci c'est bien mais j'ai un autre prob c'est de comparer la date de DTPicker avec la date d'aujourd hui

Réponse 2 / 2

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"

Newsletters