récupérer une année variable en vba et pas une année en variable..

bonjour a tous bravo pour votre site qui depuis quelque temps me permet de me former et de develloper un base pour gerer mon entreprise alors que j 'y connaissait rien en informatique. j'espère qu'un jour je pourrais enfin répondre a l'une des questions que je vois passées et auxquelles je comprend rien la plupart du temps pour que ce site devienne un peu mon site et que je rende ce que l'on m'a donner. voila ma énième question:

je cherche à dire si la date de lst_sess.column(2) est avant le 01/09/ de l'année récupérée dans "lst_sess.column(2)" alors...

j'ai écrit :

Code:

---

1 2 3 4 5 6 7

If CDate(lst_sess.Column(2)) < 1 / 9 / Year(CDate(lst_sess.Column(2))) Then   period = Year(CDate(lst_sess.Column(2)))   Else: period = Year(CDate(lst_sess.Column(2))) + 1   End If

---

évidemment ca marche pas donc si quelqu'un peut me dire pourquoi, ce serait vraiment sympas

attention si je prend que les mois inférieur a 9 je ne prendrai jamais les mois de décembre, novembre, octobre, et septembre ! hors il faut que:
du 01/09/2015 au 31/08/2016 period = 2016

et que du 01/09/2016 au 31/08/2017 period =2017

merci d'avance.

Bonjour,

En fait la "période" c'est l'année qui commencerait 122 jours plus tôt (30 + 31 + 30 +31)

Donc, il te suffit d'ajouter 122 à ta date originale pour trouver une date avec l'année que tu cherches.


Pour l'appliquer dans ton cas

Code:

---

period = Year(CDate(lst_sess.Column(2)) + 122)

---

quelle que soit la date dans lst_sess.Column(2) (donc pas de if)


Voici une fonction plus générale qui devrait y faire

Code:

---

1 2 3

Public Function Periode(DateOriginale As Date) As Long Periode = Year(DateOriginale + 122) End Function

---

http://claudeleloup.developpez.com/&99/L6428.jpg


P.-S. Quand tu postes du code, pense aux balises : http://dolphy35.developpez.com/images/Balises.gif

et merci encore