XL 2019 Nbre de mois entre 2 dates

goube

XLDnaute Accro

• 6 Mars 2024

• #2

Bonsoir,
Essaie : =DATEDIF(A1;B1;"m")-1
Cordialement

 

Vote positif 0 Vote négatif

P

Power

XLDnaute Nouveau

• 6 Mars 2024

• #3

C'est good
Merci

 

Vote positif 0 Vote négatif

Jean-Eric

XLDnaute Occasionnel

• 6 Mars 2024

• #4

Bonjour,
Une autre formulation.
Cdlt.

VB:

=DATEDIF(FIN.MOIS(B3; 0) + 1; C3; "m")

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Mars 2024

• #5

Bonjour.
Question: Si la date de début est un 1er de mois et/ou celle de fin est le dernier d'un mois, les mois concernés sont-ils quand même considérés seulement entamés ?

 

Vote positif 0 Vote négatif

P

Power

XLDnaute Nouveau

• 6 Mars 2024

• #6

Bonjour,

Si la date de début est un 1er de mois : le mois n'est pas entamés, par contre si la date est le dernier du mois : le mois est entamé.

Merci à tous

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Mars 2024

• #7

Bonjour,

Power à dit:

par contre si la date est le dernier du mois : le mois est entamé.

Cliquez pour agrandir...

Mauvaise réponse. Essaye encore.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Mars 2024

• #8

Je repose ma question autrement: Si la date de début est un 1er de mois et/ou celle de fin est le dernier d'un mois, les mois concernés ne sont-ils pas considérés complets au lieu de seulement partiels (fini partiellement ou entamés, peu importe), et donc inclus alors au résultat ?

 

Vote positif 0 Vote négatif

P

Power

XLDnaute Nouveau

• 7 Mars 2024

• #9

Hello,

Excuse-moi, je ne suis pas très clair.
Je vais essayer à nouveau :
Si la date de début est un 1er de mois : mois complet
par contre si la date de fin est le 30, cela dépend du nbre de jour dans le mois
exemple :
si jour fin est égal à 30 alors qu'il y a 31 jours (Janvier à titre d'exemple), le mois est entamé
si jour fin est égal à 30 alors que pour le mois de juin qui dispose de 30 jours alors le mois est complet
J'espère que j'ai été assez précis
Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Mars 2024

• #10

Bonjour.
La formule me semblant trop complexe, je le ferais avec une fonction perso :

VB:

Function MoisComplets(ByVal D1 As Date, ByVal D2 As Date) As Long
   If Day(D1) = 1 Then D1 = D1 - 1
   If Day(D2 + 1) = 1 Then D2 = D2 + 1
   MoisComplets = 12 * Year(D2) + Month(D2) - 12 * Year(D1) - Month(D1) - 1
   End Function

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 7 Mars 2024

• #11

Bonjour à tous

@Dranreb bravo pour cette fonction personnalisée mais après essai, si les deux dates sont dans le même mois, cela indique -1 au lieu de 0. une petite modification du code s'impose.

JHA

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Mars 2024

• #12

VB:

Function MoisComplets(ByVal D1 As Date, ByVal D2 As Date) As Long
   If Day(D1) = 1 Then D1 = D1 - 1
   If Day(D2 + 1) = 1 Then D2 = D2 + 1
   MoisComplets = 12 * Year(D2) + Month(D2) - 12 * Year(D1) - Month(D1) - 1
   If MoisComplets < 0 Then MoisComplets = 0
   End Function

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 7 Mars 2024

• #13

Proposition (à vérifier) par formule :

Code:

=DATEDIF(A1;B1;"m")-(A1<=B1)+(JOUR(A1)=1)+(B1=FIN.MOIS(B1;0))

 

Dernière édition: 8 Mars 2024

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 8 Mars 2024

• #14

Bonjour à tous,

Une comparaison des différentes formules ou fonctions de goube, Jean-Eric, TooFatBoy, TooFatBoy (*) et Dranreb.
TooFatBoy (*) est la formule de @TooFatBoy très légèrement modifiée pour tenir compte du cas où les dates sont dans le même mois.
La colonne de référence pour la MFC est la colonne de @Dranreb .

 

Pièces jointes

• Power- mois complet- v1.xlsm

  20.2 KB · Affichages: 11

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Mars 2024

• #15

mapomme à dit:

TooFatBoy (*) est la formule de @TooFatBoy très légèrement modifiée pour tenir compte du cas où les dates sont dans le même mois.

Cliquez pour agrandir...

Le pire, c'est qu'en réfléchissant à la formule avant de commencer à l'écrire, je m'étais dit qu'il fallait que j'utilise Max(xxx;0) mais le cerveau se transformant en bibeleskas, j'ai oublié, et comme en plus je n'ai pas fait de tests (c'est pour ça que j'avais écrit "(à vérifier)")...
Ca m'apprendra à être feignant !

 

Vote positif 0 Vote négatif