exportation d'une date avec 1année en moins

[akmer]

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

 

[tototiti2008]

Re : exportation d'une date avec 1année en moins

Bonjour akmer,

sans doute quelque chose comme :

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

à mettre dans le code événementiel de l'optionbutton

 

[akmer]

Re : exportation d'une date avec 1année en moins

Parfait
Merci beaucoup