Je cherche une fonction qui permet d'ajouter une nombre de=20
mois =E0 une date.
--
J'ai trouver sur un site une fonction qui fonctionne sous =20
Excel , mais quand je la transpose sous access, elle ne=20
fonctionne pas.
Voici la copie de la fonction :
******************************
Sub testAjoutMoisADate()
Dim d As Date, incdec As Integer
d =3D (Date)
incdec =3D 60
Var =3D IncDecMois(d, incdec)
End Sub
Function IncDecMois(d As Date, incdec As Integer)
'Ajoute ou retranche un nombre de mois (IncDec) =E0 une date
(D)
'Tiens compte du dernier jour du mois du r=E9sultat
'(ex : 30/03/00 moins 1 mois =3D 29/02/00)
'mpfe, d'apr=E8s un post de LL
IncDecMois =3D DateSerial(Year(d), Month(d) + incdec,=20
Application.Min(Day(d), _
Day(DateSerial(Year(d), Month(d) + incdec=20
+ 1, 0))))
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
Madate = DateAdd("m", 6, Madate1)
madate aura 6 mois de plus que madate1 -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"René" a écrit dans le message de news: 056801c4aab5$41108260$ Je cherche une fonction qui permet d'ajouter une nombre de mois à une date. -- J'ai trouver sur un site une fonction qui fonctionne sous Excel , mais quand je la transpose sous access, elle ne fonctionne pas. Voici la copie de la fonction :
****************************** Sub testAjoutMoisADate() Dim d As Date, incdec As Integer d = (Date) incdec = 60 Var = IncDecMois(d, incdec) End Sub
Function IncDecMois(d As Date, incdec As Integer) 'Ajoute ou retranche un nombre de mois (IncDec) à une date (D) 'Tiens compte du dernier jour du mois du résultat '(ex : 30/03/00 moins 1 mois = 29/02/00) 'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec, Application.Min(Day(d), _ Day(DateSerial(Year(d), Month(d) + incdec + 1, 0)))) End Function
Si vous avez la solution , d'avance merci
rené
Bonjour.
Madate = DateAdd("m", 6, Madate1)
madate aura 6 mois de plus que madate1
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"René" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 056801c4aab5$41108260$a601280a@phx.gbl...
Je cherche une fonction qui permet d'ajouter une nombre de
mois à une date.
--
J'ai trouver sur un site une fonction qui fonctionne sous
Excel , mais quand je la transpose sous access, elle ne
fonctionne pas.
Voici la copie de la fonction :
******************************
Sub testAjoutMoisADate()
Dim d As Date, incdec As Integer
d = (Date)
incdec = 60
Var = IncDecMois(d, incdec)
End Sub
Function IncDecMois(d As Date, incdec As Integer)
'Ajoute ou retranche un nombre de mois (IncDec) à une date
(D)
'Tiens compte du dernier jour du mois du résultat
'(ex : 30/03/00 moins 1 mois = 29/02/00)
'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec,
Application.Min(Day(d), _
Day(DateSerial(Year(d), Month(d) + incdec
+ 1, 0))))
End Function
madate aura 6 mois de plus que madate1 -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"René" a écrit dans le message de news: 056801c4aab5$41108260$ Je cherche une fonction qui permet d'ajouter une nombre de mois à une date. -- J'ai trouver sur un site une fonction qui fonctionne sous Excel , mais quand je la transpose sous access, elle ne fonctionne pas. Voici la copie de la fonction :
****************************** Sub testAjoutMoisADate() Dim d As Date, incdec As Integer d = (Date) incdec = 60 Var = IncDecMois(d, incdec) End Sub
Function IncDecMois(d As Date, incdec As Integer) 'Ajoute ou retranche un nombre de mois (IncDec) à une date (D) 'Tiens compte du dernier jour du mois du résultat '(ex : 30/03/00 moins 1 mois = 29/02/00) 'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec, Application.Min(Day(d), _ Day(DateSerial(Year(d), Month(d) + incdec + 1, 0)))) End Function
Si vous avez la solution , d'avance merci
rené
Ilan
Bonjour Rene,
Tu peux utiliser la methode DateADD de VBA
DateNouvelleÚteAdd ("m",x,Datedepart) Ici "m" specifie que tu ajoutes des mois, x le nombre de mois
Je cherche une fonction qui permet d'ajouter une nombre de mois à une date. -- J'ai trouver sur un site une fonction qui fonctionne sous Excel , mais quand je la transpose sous access, elle ne fonctionne pas. Voici la copie de la fonction :
****************************** Sub testAjoutMoisADate() Dim d As Date, incdec As Integer d = (Date) incdec = 60 Var = IncDecMois(d, incdec) End Sub
Function IncDecMois(d As Date, incdec As Integer) 'Ajoute ou retranche un nombre de mois (IncDec) à une date (D) 'Tiens compte du dernier jour du mois du résultat '(ex : 30/03/00 moins 1 mois = 29/02/00) 'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec, Application.Min(Day(d), _ Day(DateSerial(Year(d), Month(d) + incdec + 1, 0)))) End Function
Si vous avez la solution , d'avance merci
rené
Bonjour Rene,
Tu peux utiliser la methode DateADD de VBA
DateNouvelleÚteAdd ("m",x,Datedepart)
Ici "m" specifie que tu ajoutes des mois, x le nombre de mois
Je cherche une fonction qui permet d'ajouter une nombre de
mois à une date.
--
J'ai trouver sur un site une fonction qui fonctionne sous
Excel , mais quand je la transpose sous access, elle ne
fonctionne pas.
Voici la copie de la fonction :
******************************
Sub testAjoutMoisADate()
Dim d As Date, incdec As Integer
d = (Date)
incdec = 60
Var = IncDecMois(d, incdec)
End Sub
Function IncDecMois(d As Date, incdec As Integer)
'Ajoute ou retranche un nombre de mois (IncDec) à une date
(D)
'Tiens compte du dernier jour du mois du résultat
'(ex : 30/03/00 moins 1 mois = 29/02/00)
'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec,
Application.Min(Day(d), _
Day(DateSerial(Year(d), Month(d) + incdec
+ 1, 0))))
End Function
DateNouvelleÚteAdd ("m",x,Datedepart) Ici "m" specifie que tu ajoutes des mois, x le nombre de mois
Je cherche une fonction qui permet d'ajouter une nombre de mois à une date. -- J'ai trouver sur un site une fonction qui fonctionne sous Excel , mais quand je la transpose sous access, elle ne fonctionne pas. Voici la copie de la fonction :
****************************** Sub testAjoutMoisADate() Dim d As Date, incdec As Integer d = (Date) incdec = 60 Var = IncDecMois(d, incdec) End Sub
Function IncDecMois(d As Date, incdec As Integer) 'Ajoute ou retranche un nombre de mois (IncDec) à une date (D) 'Tiens compte du dernier jour du mois du résultat '(ex : 30/03/00 moins 1 mois = 29/02/00) 'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec, Application.Min(Day(d), _ Day(DateSerial(Year(d), Month(d) + incdec + 1, 0)))) End Function
Si vous avez la solution , d'avance merci
rené
Merci pour les réponses , C'est OK
rené
-----Message d'origine----- Bonjour.
Madate = DateAdd("m", 6, Madate1)
madate aura 6 mois de plus que madate1 -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"René" a écrit dans le message de
news: 056801c4aab5$41108260$ Je cherche une fonction qui permet d'ajouter une nombre de mois à une date. -- J'ai trouver sur un site une fonction qui fonctionne sous Excel , mais quand je la transpose sous access, elle ne fonctionne pas. Voici la copie de la fonction :
****************************** Sub testAjoutMoisADate() Dim d As Date, incdec As Integer d = (Date) incdec = 60 Var = IncDecMois(d, incdec) End Sub
Function IncDecMois(d As Date, incdec As Integer) 'Ajoute ou retranche un nombre de mois (IncDec) à une date (D) 'Tiens compte du dernier jour du mois du résultat '(ex : 30/03/00 moins 1 mois = 29/02/00) 'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec, Application.Min(Day(d), _ Day(DateSerial(Year(d), Month(d) + incdec + 1, 0)))) End Function
Si vous avez la solution , d'avance merci
rené
.
Merci pour les réponses , C'est OK
rené
-----Message d'origine-----
Bonjour.
Madate = DateAdd("m", 6, Madate1)
madate aura 6 mois de plus que madate1
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"René" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 056801c4aab5$41108260$a601280a@phx.gbl...
Je cherche une fonction qui permet d'ajouter une nombre de
mois à une date.
--
J'ai trouver sur un site une fonction qui fonctionne sous
Excel , mais quand je la transpose sous access, elle ne
fonctionne pas.
Voici la copie de la fonction :
******************************
Sub testAjoutMoisADate()
Dim d As Date, incdec As Integer
d = (Date)
incdec = 60
Var = IncDecMois(d, incdec)
End Sub
Function IncDecMois(d As Date, incdec As Integer)
'Ajoute ou retranche un nombre de mois (IncDec) à une date
(D)
'Tiens compte du dernier jour du mois du résultat
'(ex : 30/03/00 moins 1 mois = 29/02/00)
'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec,
Application.Min(Day(d), _
Day(DateSerial(Year(d), Month(d) + incdec
+ 1, 0))))
End Function
madate aura 6 mois de plus que madate1 -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"René" a écrit dans le message de
news: 056801c4aab5$41108260$ Je cherche une fonction qui permet d'ajouter une nombre de mois à une date. -- J'ai trouver sur un site une fonction qui fonctionne sous Excel , mais quand je la transpose sous access, elle ne fonctionne pas. Voici la copie de la fonction :
****************************** Sub testAjoutMoisADate() Dim d As Date, incdec As Integer d = (Date) incdec = 60 Var = IncDecMois(d, incdec) End Sub
Function IncDecMois(d As Date, incdec As Integer) 'Ajoute ou retranche un nombre de mois (IncDec) à une date (D) 'Tiens compte du dernier jour du mois du résultat '(ex : 30/03/00 moins 1 mois = 29/02/00) 'mpfe, d'après un post de LL
IncDecMois = DateSerial(Year(d), Month(d) + incdec, Application.Min(Day(d), _ Day(DateSerial(Year(d), Month(d) + incdec + 1, 0)))) End Function
