[VBA] Enlever 18 mois à une date

Le
Thierry.E
Bonsoir,

Voici mon problème : Dans une macro VBA, je souhaite faire des calculs sur
les 18 derniers mois courants (Le mois courant et les 17 derniers mois
entiers). Quelqu'un a une solution pour calculer la date de début ?

Exemple : Aujourd'hui 04/10/2009 ==> Date début = 01/05/2008

A bientôt,
Thierry
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #20289331
Bonsoir

MsgBox DateSerial(Year(Date), Month(Date) - 17, 1)

--
Salutations
JJ


"Thierry.E"
Bonsoir,

Voici mon problème : Dans une macro VBA, je souhaite faire des calculs sur
les 18 derniers mois courants (Le mois courant et les 17 derniers mois
entiers). Quelqu'un a une solution pour calculer la date de début ?

Exemple : Aujourd'hui 04/10/2009 ==> Date début = 01/05/2008

A bientôt,
Thierry


Philippe.R
Le #20289321
Bonsoir,
Un truc comme ça :

Sub debut()
madate = DateSerial(Year(Now), Month(Now) - 18, Day(Now))
MsgBox madate
End Sub

devrait pouvoir te mettre sur la voie
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Thierry.E" news:
Bonsoir,

Voici mon problème : Dans une macro VBA, je souhaite faire des calculs sur
les 18 derniers mois courants (Le mois courant et les 17 derniers mois
entiers). Quelqu'un a une solution pour calculer la date de début ?

Exemple : Aujourd'hui 04/10/2009 ==> Date début = 01/05/2008

A bientôt,
Thierry


isabelle
Le #20289461
bonjour Thierry,

date1 = DateSerial(2009, 10 - 17, 4)

isabelle

Thierry.E a écrit :
Bonsoir,

Voici mon problème : Dans une macro VBA, je souhaite faire des calculs
sur les 18 derniers mois courants (Le mois courant et les 17 derniers
mois entiers). Quelqu'un a une solution pour calculer la date de début ?

Exemple : Aujourd'hui 04/10/2009 ==> Date début = 01/05/2008

A bientôt,
Thierry


Thierry.E
Le #20289451
Merci beaucoup ! Ca fonctionne parfaitement !

Thierry

"Jacky"
Bonsoir

MsgBox DateSerial(Year(Date), Month(Date) - 17, 1)

--
Salutations
JJ


"Thierry.E"
Bonsoir,

Voici mon problème : Dans une macro VBA, je souhaite faire des calculs
sur
les 18 derniers mois courants (Le mois courant et les 17 derniers mois
entiers). Quelqu'un a une solution pour calculer la date de début ?

Exemple : Aujourd'hui 04/10/2009 ==> Date début = 01/05/2008

A bientôt,
Thierry







Publicité
Poster une réponse
Anonyme