Discussion :

[Philippe608]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ClaudeLELOUP]

Bonjour,

Tu copies le code que tu renseignes dans un module.

Ensuite, tu utilises comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe608]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

[Philippe608]

J'ai peut être trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.