XL 2016 comment déduire une durée sur une durée

J

JHA

XLDnaute Barbatruc

• 11 Janvier 2022

• #2

Bonjour à tous,

A adapter

JHA

 

Pièces jointes

• Classeur date ricou77.xlsx

  9.5 KB · Affichages: 14

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2022

• #3

Bonjour ricou77, JHA

Exprimée en années, mois, jours une durée n'a de sens que si l'on indique la période sur laquelle elle est calculée.

La période peut être une plage de dates quelconques, jointives ou disjointes.

Si l'on veut ne pas passer par cette contrainte il faut considérer que tous les mois ont 30 jours.

A+

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 11 Janvier 2022

• #4

job75 à dit:

Bonjour ricou77, JHA

Exprimée en années, mois, jours une durée n'a de sens que si l'on indique la période sur laquelle elle est calculée.

La période peut être une plage de dates quelconques, jointives ou disjointes.

Si l'on veut ne pas passer par cette contrainte il faut considérer que tous les mois ont 30 jours.

A+

Cliquez pour agrandir...

Bonjour,

Vu la problématique je pense qu'il s'agit de calcul d'ancienneté dans la fonction publique ... et je n'ai jamais vu qu'on arbitrait tous les mois à 30 jours.
En tout cas, la problématique m'intéresse donc je la suis/suivrais.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2022

• #5

Bonjour nat54,

En comptabilité des mois de 30 jours peuvent être utilisés.

Pour cela il existe la fonction Excel JOURS360 :

https://support.microsoft.com/fr-fr...fonction-b9a509fd-49ef-407e-94df-0cbda5718c2a

A+

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 11 Janvier 2022

• #6

Bonjour
un fichier retrouvé et modifié pour l'occasion qui répondra (ou pas ) à la question.

 

Pièces jointes

• Entre deux date.xlsm

  21.9 KB · Affichages: 6

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2022

• #7

Bonjour.
Si ce sont des durées indépendantes des dates qui sont visées, mettez une date en B2 et en C2 :

Code:

=DATE(ANNEE(B2)+400;MOIS(B2);JOUR(B2))

et observez que les formules suivantes donnent toujours le même résultat :
En D2 :

Code:

=C2-B2

En E2 :

Code:

=D2/400

En F2 :

Code:

=E2/12

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Janvier 2022

• #8

Bonjour,

Pour calculer les années et les mois, ça doit être faisable.
Mais pour calculer les jours sans avoir les dates, je pense que c'est impossible, sauf à considérer que le mois a toujours une durée de 30 jours...

J'ai ça :

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2022

• #9

Je viens de montrer que d'après le calendrier la durée moyenne d'un mois au cours de 400 ans est de 30,436875 jours

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Janvier 2022

• #10

Et donc on fait comment avec ta démonstration pour calculer les jours restants ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2022

• #11

J'ai cette fonction qui affiche un texte décrivant une durée en jours avec un précision relative à l'ordre de grandeur :

VB:

Function DuréeEnClair(ByVal DuRest As Double, Optional ByVal OPé As Long = -1) As String
   Dim U As Long, DuUnit As Double, NbUnit As Long, Trad As String, Compter As Boolean, K As Long
   For U = 1 To 6
      If DuRest = 0 Then Exit For
      If OPé > 0 And U > OPé Then Exit For
      DuUnit = Choose(U, 365.2425, 30.436875, 7, 1, 1 / 24, 1 / 1440)
      NbUnit = Int(DuRest / DuUnit)
      If NbUnit > 0 Then
         If OPé <= 0 Then Compter = True
         If Trad <> "" Then
            If DuréeEnClair <> "" Then
               DuréeEnClair = DuréeEnClair & ", " & Trad
            Else
               DuréeEnClair = Trad: End If
            End If
         Trad = NbUnit & " " & Choose(U, "an", "mois", "sem.", "jour", "heure", "min")
         If NbUnit * Choose(U, 1, 0, 0, 1, 1, 0) > 1 Then Trad = Trad & "s"
         DuRest = DuRest - DuUnit * NbUnit: End If
      If Compter Then K = K - 1: If K < OPé Then Exit For
      Next U
   If Trad <> "" Then
      If DuréeEnClair <> "" Then
         DuréeEnClair = DuréeEnClair & " et " & Trad
      Else
         DuréeEnClair = Trad: End If
      End If
   If OPé > 0 And DuréeEnClair = "" Then DuréeEnClair = "Moins d'1 " _
      & Choose(OPé, "an", "mois", "sem.", "jour", "heure", "min")
   End Function

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Janvier 2022

• #12

Et avec ça on peut faire une soustraction entre deux durées calendaires ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2022

• #13

On peut exprimer ainsi une différence entre deux dates.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Janvier 2022

• #14

Oui mais, comme je l'ai dit plus haut, on n'a justement pas les dates, mais uniquement des durées calendaires à soustraire l'une de l'autre.
D'où ma question pour savoir comment calculer les jours résiduels sans connaître les dates.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2022

• #15

On peut exprimer ainsi une durée en jours.
Je ne sais ce qu'est une durée calendaire.

 

Vote positif 0 Vote négatif