Discussion :

[Bes74]

Je veux calculer le nombre de mois entre deux dates en arrondissant toujour au plus haut.

Ex.: La différence entre 1er janvier 2006 et le 31 décembre 2006 devrait donner 12 mois.

J'ai trouvé DateDiff mais elle n'arrondie pas. Elle donne pour l'exemple ci-haut, 11 mois.



Bes74

[pgz]

Bonjour,

Il faut je pense se faire soit même la fonction. Si on considère qu'on compte un mois de plus si la dernière période est > 14 jours,

Code :

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

1
2
3
4
5
6
Function fctNbMois(Date1 As Date, Date2 As Date) As Integer
Dim nbm As Integer, nbj As Integer
nbm = DateDiff("m", Date1, Date2)
nbj = DateDiff("d", DateAdd("m", nbm, Date1), Date2) + 1
fctNbMois = nbm + IIf(nbj > 14, 1, 0)
End Function

Tu peux régler la valeur de seuil au nombre de jours que tu veux.

Bon courage,

PGZ