Calcul date avec affichage particulier

[Phoenix23]

Bonjour à toutes et tous,
Dans le fichier ci joint, 2 exemples de calculs et affichages que j'aimerai si possible obtenir, si quelqu'un pouvait me faire bénéficier de ses connaissances et son aide...
D'avance Merci
Bonne Journée
Cordialement

 

[DoubleZero]

Re : Calcul date avec affichage particulier

Bonjour, Phoenix23, le Forum,

Toutes mes excuses... erreur de ma part !

A bientôt

 

[DoubleZero]

Re : Calcul date avec affichage particulier

Re-bonjour,

Voir le travail de ROGER2327 , ici.

A bientôt

 

[Tibo62]

Re : Calcul date avec affichage particulier

Bonjour Double Zero, phoenix 23

Voir PJ
Surtout pour rappel l'utilisation de la formule datedif nécessite l'ajout du compléments Analysis Toolpak ( onglet développeur-->compléments)
Est ce que cela correspond à tes attentes?

 

[Phoenix23]

Re : Calcul date avec affichage particulier

Bonsoir et Tout d'abord merci de votre Aide.
Tibhault ta réponse et ton exemple me convient, mais, mais... une petite question .
Sur la seconde ligne de l'exemple ta formule ne prends pas en compte la différence entre les années...
Cela signifie t-il que ce n'est pas réalisable ?
D'avance Merci
Cordialement

 

[ROGER2327]

Re : Calcul date avec affichage particulier

Bonjour à tous.

Une autre proposition :

• formule Excel
  (valider par Ctrl Maj Entrée)

=SI($D2*$E2;
                                   TEXTE(ENT(SOMME(--(MOIS.DECALER(MIN($E2;$D2);LIGNE(DECALER($A$1;;;12*(ABS(ANNEE($D2)-ANNEE($E2))+1);)))<=MAX($E2;$D2)))/12);
"[>1]0"" ans, "";0"" an, """)&
                                         MOD(SOMME(--(MOIS.DECALER(MIN($E2;$D2);LIGNE(DECALER($A$1;;;12*(ABS(ANNEE($D2)-ANNEE($E2))+1);)))<=MAX($E2;$D2)));12)&" mois, "&
TEXTE(MAX($E2;$D2)-MOIS.DECALER(MIN($E2;$D2);SOMME(--(MOIS.DECALER(MIN($E2;$D2);LIGNE(DECALER($A$1;;;12*(ABS(ANNEE($D2)-ANNEE($E2))+1);)))<=MAX($E2;$D2))));
"[>1]0"" jours"";0"" jour""");"")

• fonction personnalisée VisualBasic

Function DifDate$(début As Date, fin As Date)
Dim D As Date, f As Date, M&, j&
  If début < fin Then D = début: f = fin + 1 Else D = fin: f = début + 1
  Do While DecMois(D, M + 1) < f: M = M + 1: Loop
  D = DateSerial(Year(DecMois(D, M)), Month(DecMois(D, M)), Day(DecMois(D, M)))
  j = f - D - 1
  DifDate = M \ 12 & " an" & IIf(M \ 12 > 1, "s, ", ", ") & M Mod 12 & " mois, " & j & " jour" & IIf(j > 1, "s", "")
End Function

Function DecMois(D As Date, dec&) As Date
Dim x, y
  x = DateSerial(Year(D), Month(D) + dec, 1)
  y = Day(DateSerial(Year(x), Month(x) + 1, 0))
  DecMois = DateSerial(Year(D), Month(D) + dec, (y + Day(D) - Abs(y - Day(D))) / 2)
End Function

Bonne journée.


ℝOGER2327
#7772

Samedi 28 Gueules 142 (Sainte Hylactor et Pamphagus - fête Suprême Quarte)
4 Ventôse An CCXXIII, 3,9467h - troêne
2015-W08-7T09:28:19Z

 

[Phoenix23]

Re : Calcul date avec affichage particulier

Bonjour, merci de votre aide, personnellement j'ai trouvé grâce à vous mon bonheur!
Pour moi la dernière réponse clôt le sujet.
Cordialement