Enlever 12 mois à CDate

[Bobstriker]

Bonjour le Forum,
J'ai bien feuilleté les questions relatives aux dates , mais je ne trouve pas ,bien que cela doit être simple.
J'ai une variable , égale à la date du jour , et je voudrais que cette variable devienne le 1er jour du mois suivant CDate , moins 1 an.
en vba.

Pour l'instant j'ai fait (et ça fonctionne): d = CDate(Date)-360
Mais ce n'est pas très "élégant".

Merci de vos idées.

 

[wilfried_42]

Re : Enlever 12 mois à CDate

bonjour bobstriker

en formule : =date(annee(A1)-1;mois(A1)+1;1)---Date en A1

en vba =
dim ancdate as date, nouvdate as date
nouvdate=cdate("1/" & cstr(month(ancdate)+1) & "/" & cstr(year(ancdate)-1))

 

[Catrice]

Re : Enlever 12 mois à CDate

Bonjour,

Je propose :

Sub test()
d = Now
Madate = DateSerial(Year(d) - 1, Month(d) + 1, 1)

Msgbox Madate
End Sub

 

[Bobstriker]

Re : Enlever 12 mois à CDate

Bjr Wilfried42 , Catrice,

merci pour vos réponses éclair.
c'est bon dans ce que je voulais faire.
Bonne journée