Discussion :

[yaumme]

Bonjour,

J'ai une form dans laquelle j'ai 2 textBox, l'une ou l'utilisateur entre la date de debut et l'autre ou il entre la date de fin.

Pour le momment je les rentre à la main, mais j'aimerais que la date de fin s'ecrive automatiquement avec + 1 an par defaut et qu'elle puisse etre modifié eventuellement après.

Comment puis je faire ?

Les fonctions de mes 2 textbox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub tDateDebut_Change()
' initialise les bool de fonctionnement
    FInitialisationBool False
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub tDateFin_Change()
' initialise les bool de fonctionnement
    FInitialisationBool False
 
End Sub

Merci à vous !!

[Igloobel]

J'ai eu quelques réponses à ce sujet lit mon sujet et pour cela fait :
- clic sur "Recherche avancée sur le forum"
- met comme mots clé "Date and Textbox"
- sélectionne le forum "Visual Basic"

Si tu as d'autre questions post a nouveau si cela résoud ton problème met le tag résolu

A bientôt

Igloobel

[Mehdi_ab]

bonjour

la solution pour ton probléme est d'utiliser la fonction DateAdd ,voila sa description :

DateAdd (interval as string,number as double,date)

interval : expression représentant le type de nombre ,ces valeurs possibles sont :
yyyy : représente une année sur quatre chiffres
MM : représente le mois sur deux chiffres.
number : Ajouter ce nombre à la date spécifiée dans le format intervalle
Date : Date de réference

pour ton probleme , tu veux ajouter un an a la date contenu dans tDateDebut et l'afficher dans tDateFin ,alors dans ce cas , on ecrit la fonction comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tDateFin.text = DateAdd ("yyyy",1,tDateDebut .text)

si tu ecrit ta fonction comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
tDateFin.text = DateAdd ("MM",1,tDateDebut .text)

alors il va ajouter un mois a tDateDebut et l'affecter à tDateFin

cepandant
tDateFin.text = DateAdd ("MM",12,tDateDebut .text)

a le meme efet que tDateFin.text = DateAdd ("yyyy",1,tDateDebut .text) , car il va ajouter 12 mois ,alors un an

mais je te conseil fortment d'utiliser le controle DatePicker pour les dates

[zazaraignée]

Salut

Le plus simple est d'éviter à l'utilisateur de saisir une donnée qui doit forcément avoir un format particulier - comme une date - ce qui simplifie grandement les procédure de validation de saisie. Il existe un (ou plutôt quelques) controle très pratique pour la saisie de date, soit le contrôle DateTimePicker. Il permet de saisir autant une date qu'une heure. Pour saisir strictement une date, on peut aussi utiliser le contrôle MonthView ou le contrôle Calendar.

Pour pouvoir utiliser ces composants, tu ouvre la boîte de dialogue Composants (Projet > Composants) et tu cherche dans la liste:
Microsoft Calendar Control 8.0 (ou une autre version)
Microsoft Windows Common Control-2 6.0 (au moins, la version 5.0 n'a pas le DateTimePicker)

Bonne découverte!