date ajout de 6 mois automatique comment faire

bonjour

j'ai un champ date et un autre champ numérique qui correspond a un nombre de mois.

je souhaite par exemple que pour la date 16/05/2007 et qui a pour champ numérique 6 (6mois) on ai comme résultat dans un nouveau champ 15/11/2007 ( oui j'ai oublie a la date du jour on doit enleve 1 jour)

je souhaiterai également avoir la possibilité de modifier le résultat pour des cas tres rare

comment faire tout cela??

Bonjour,

Je n'ai pas compris ce que tu voulais faire.
Si tu pouvais être plus précis.

Cordialement,

Antoine

je souhaite a une date (16/05/2007 ) ajoute par exemple 6 mois et y enleve 1 jour sa doit me donnée pour mon exemple
16-1=15 pour les jours
05+6=11 mois
2007 ne change par car on est la même année mais a prévoir au cas ou on change d'année

donc ici 15/11/2007 voila le résultat que je veux avoir et cela grace a la saisie du nombre de mois ici 6

tu comprend??

Hello !

Tu crées un petit code VBA, dans le style de celui ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9

Dim Jour As Integer Dim Mois As Integer Dim Annee As Integer   Jour = Day(Me!txtDate) - 1 Mois = Month(Me!txtDate) + Me!txtMois Annee = IIf(Month(Me!txtDate) + Me!txtMois >= 12, Year(Me!txtDate), Year(Me!txtDate) + 1)   Me!txtResultat = DateSerial(Annee, Mois, Jour)

---

Me!txtDate étant le control recevant l'information du jour
Me!txtMois le nombre de mois à ajouter
Me!txtResultat.. le résultat 8-)

Suivant l'évènement que tu choisis pour appeler ce code, cela te laisse le champ libre pour modifier manuellement - si besoin - ton control "Me!txtResultat"

Bonjour,

On peut concevoir dans une requête :

Code:

---

1 2 3

SELECT tblDateHeure.Date, DateAdd("m",6,[Date]) AS Plus1Trimestre, DateAdd("d",6,[Date]) AS Pus6Jours FROM tblDateHeure;

---

Cordialement.

j'aime bien ta solution mais je rencontre un probleme si on prendre une date 01/01/2007
pour 3 mois sa fait 31/03/2007 sa marche
pour 6 mois sa fait 30/06/2007 sa marche aussi
pour 12 mois sa fait 31/12/2007 sa marche pas
j'ai pour infor modifier une ligne comme sa

Code:

---

1 2	Annee = IIf(Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP >= 12, Year(Me!DATE_RECEPTION) + 1, Year(Me!DATE_RECEPTION))

---

voila mon code complet c ou le probleme???

Code:

---

1 2 3 4 5 6 7 8 9

Dim Jour As Integer Dim Mois As Integer Dim Annee As Integer   Jour = Day(Me!DATE_RECEPTION) - 1 Mois = Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP Annee = IIf(Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP >= 12, Year(Me!DATE_RECEPTION) + 1, Year(Me!DATE_RECEPTION))   Me!DATE_DEBUT_VERSE_GP = DateSerial(Annee, Mois, Jour)

---

Hey... je te signale que 01.01.2007 plus 12 mois moins 1 jour, cela donne 31.12.2007 ! ;)

et... je ne vois pas de problème dans ton code. J'ai testé le mien il fonctionne et tu as simplement modifié les noms des controls...

je comprend pas je te joint le formulaire pour que tu regarde sa marche pas chez moi

Alors, deux choses...

1. Il te faut modifier l'ordre de tabulation de ton control "NB_MOIS_GP" qui, étant le dernier du formulaire te mènes à l'enregistrement suivant dès que tu presses "TAB" ou "RETURN"
2. Le code, sera plus pertinent si tu le colles sur l'évènement "Après MAJ" de ton control "NB_MOIS_GP"

Tu auras donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Compare Database   Private Sub DATE_DEBUT_VERSE_GP_GotFocus() ' A supprimer, ici uniquement pour souligner le "transfert" du code" End Sub   Private Sub NB_MOIS_GP_AfterUpdate() Dim Jour As Integer Dim Mois As Integer Dim Annee As Integer   Jour = Day(Me!DATE_RECEPTION) - 1 Mois = Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP Annee = IIf(Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP >= 12, Year(Me!DATE_RECEPTION) + 1, Year(Me!DATE_RECEPTION))   Me!DATE_DEBUT_VERSE_GP = DateSerial(Annee, Mois, Jour) End Sub

---

Dans le code attaché à ton formulaire "LOGEMENT Sous-formulaire"... voir ci-dessous 8-)

ok merci sa marche j'ai trouve merci bcp de ton aide

Et de simplement faire:

Code:

---

1 2 3 4 5

Dim dte as date   dte = Date dte = (Dateadd("m",6,dte) - 1)

---

Ca le ferait?

Hello !

Oui, c'est une superbe idée !!

Cela demande néamoins une petite adaptation

Code:

---

1 2 3 4

Dim dte As Date dte = Me!DATE_RECEPTION dte = (DateAdd("m", Me!NB_MOIS_GP, dte) - 1) Me!DATE_DEBUT_VERSE_GP = dte

---

Merci fold85 ! :king:

Haha, ca fait plaisir. Je cartonne fort pour un premier post :P 8-)

Citation:

---

Envoyé par fold85

Haha, ca fait plaisir. Je cartonne fort pour un premier post :P 8-)

---

Ton pseudo c'est "Popofpopof " ?

:mouarf::mouarf:

Je ne comprends pas (je suis Québécois tu vois...:P):aie:

Ah ok, tu fais référence à mes félicitations !

OK alors, tu cartonnes TRES fort !! :mouarf::mouarf:

... et bienvenue à toi !