Exporter date d'une textbox dans une autres textbox

Résolu
cs_akmer Messages postés 43 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 9 septembre 2008 - 9 sept. 2008 à 15:22
cs_akmer Messages postés 43 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 9 septembre 2008 - 9 sept. 2008 à 16:59
Bonjour,
J'ai 2texboxdate :texboxdate1 et textboxdate2 (dans lesquels je saisies des dates:) )


J'ai un optionbutton1


Et 2 autres textboxdate: texteboxdate3 et textboxdate4


Je souhaiterai que lorsque je le option button est vrai (donc selectionné) que la date saisie dans texboxdate1 aille dans la texboxdate3 avec une année en moins, mais aussi que la date saisie dans la textboxdate2 aille dans la textboxdate4 avec aussi une année en moins.


Exemple pour mieu comprendre
textboxdate1=01/01/2008
textboxdate2=31/12/2008
Si optionbutton1 est vrai
textboxdate3= 01/01/2007
textboxdate4=31/12/2007


Quelqu'un connait le code svp?
Merci d'avance

3 réponses

jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
9 sept. 2008 à 15:44
Bonjour,

J'espère qu'il ne s'agit (ton problème) que de l'enlèvement d'une année (le reste est vraiment basique !!!) :
Pour enlever une année, tu as à ta disposition la fonction DateAdd (à voir dans ton aide en ligne).
3
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
9 sept. 2008 à 16:17
Salut,

"Quelqu'un connait le code svp?" La section Code est la pour ca non????

Si c'est un problème sur un sujet précis, le forum ne devrait y répondre de cette manière[../reglement.aspx Voir le règlement de CodeS-SourceS]

 Sujet vide@+: Ju£i€n
Pensez: Réponse acceptée
0
cs_akmer Messages postés 43 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 9 septembre 2008
9 sept. 2008 à 16:59
if OptionButton1.value = True then
Date1 = cdate(textboxdate1.text)
Date2 = cdate(textboxdate2.text)
textboxdate3.text = dateserial(year(date1)-1,month(date1),day(date1))
textboxdate4.text = dateserial(year(date2)-1,month(date2),day(date2))
end if




Réponse trouvé
Merci beaucoup
0
Rejoignez-nous