Comment utiliser ce code dans une requête ?

Bonsoir,

Je recherche une solution pour calculer le nombre de mois entre deux dates avec précision, j'ai trouvé ce code, comment le modifier pour afficher le résultat en mois précis et comment l'utiliser ensuite dans une requête ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Function CalculAge(ByVal Dat1 As Date, ByVal Dat2 As Date) As Integer   If Month(Dat2) > Month(Dat1) Then   CalculAge = DateDiff("yyyy", Dat1, Dat2)   ElseIf Month(Dat2) = Month(Dat1) Then   If Day(Dat2) >= Day(Dat1) Then   CalculAge = DateDiff("yyyy", Dat1, Dat2)   Else   CalculAge = DateDiff("yyyy", Dat1, Dat2) - 1   End If   Else   CalculAge = DateDiff("yyyy", Dat1, Dat2) - 1   End If   End Function

---

Merci d'avance.
Philippe.

Bonjour,

Tu copies le code que tu renseignes dans un module.

Ensuite, tu utilises comme ceci

http://claudeleloup.developpez.com/ForumAccess/k306.jpg

Code:

---

1 2	SELECT Exemple.id, Exemple.UneDate, Exemple.UneAutreDate, CalculAge([UneDate],[UneAutreDate]) AS Expr1 FROM Exemple;

---

Bonsoir Monsieur,

Merci pour votre réponse, j'ai modifier le code j'ai remplacé "yyyy" par "m" pour obtenir le résultat en mois, mais le résultat ne semble pas précis,

Exemple
calcul sur le 15/05/2014

date arrivée 16/04/2012 résultat Excel avec

Code:

---

=DATEDIF(DateArrivee;Maintenant;"m")

---

= 24 mois et 29 jours soit 24 mois

Dans Access = 25 mois " il y a une journée de plus.

seul le résultat en mois m'intéresse.

Comment pourrions nous modifier le code pour avoir le même résultat que dans Excel en mois entier ?

Encore merci.
Philippe

J'ai peut être trouvé :

Code:

---

1 2 3 4 5 6 7

Function CalculAge(ByVal Dat1 As Date, ByVal Dat2 As Date) As Integer If Day(Dat2) >= Day(Dat1) Then CalculAge = DateDiff("m", Dat1, Dat2) Else CalculAge = DateDiff("m", Dat1, Dat2) - 1 End If End Function

---

A voir !

Encore merci.
Philippe.