Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enlever 12 mois à CDate

Bobstriker

XLDnaute Nouveau
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

XLDnaute Barbatruc
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))
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…