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

sirahmed -
lermite222 Messages postés 9042 Statut Contributeur - 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

Configuration: Windows Vista
Internet Explorer 7.0

Afficher la suite

A voir également:

DTPicker et incrémentation d'année avec VB6
Vb6 - Télécharger - Divers Utilitaires
Figurine troll année 90 - Forum Loisirs / Divertissements
Excel copier formule sans incrémentation ✓ - Forum Bureautique
Chanteur blond annee 80 - Forum Musique / Radio / Clip
Chanteur blond année 80 ✓ - Forum Musique / Radio / Clip

2 réponses

Réponse 1 / 2

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+

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

Réponse 2 / 2

lermite222 Messages postés 9042 Statut Contributeur 1 199

If DtPicker = date then debug.print "Egal"

Discussions similaires

musique qui fait tututu

Compatibilité VB6 et Windows 10

Cherche Musique Année 80 !

convertir des trimestres en ans mois et jours

Je cherche une musique electro qui tuuuuuue

Discussions similaires

Newsletters