XL 2016 [RESOLU] DATEDIF() en semaine, faisable ?

[aragdur]

Salut,

J'ai cette formule qui me permet de connaître l'âge sous le format :
2 a 4 m 15 j

si je souhaiterai avoir
2 a 4 m 2 s 1 j

s, c'est pour semaine bien sûr

j'ai déjà testé "w" sans succès ^^'

=DATEDIF([@[DATE DE NAISSANCE]];[@DATE];"y")&"a "&DATEDIF([@[DATE DE NAISSANCE]];[@DATE];"ym")&"m "&DATEDIF([@[DATE DE NAISSANCE]];[@DATE];"md")&"j"

date de naissance = c'est clair,
date = une date que je choisi.

une idée svp ?

cdlt

 

[Dranreb]

Bonjour.
Inspirez vous peut être de cette fonction perso :

Function DuréeEnClair(ByVal DuRest As Double) As String
Dim U As Long, DuUnit As Double, NbUnit As Long, K As Long, Trad As String
For U = 1 To 6
   DuUnit = Choose(U, 365.2425, 30.436875, 7, 1, 1 / 24, 1 / 1440)
   NbUnit = Int(DuRest / DuUnit)
   If NbUnit > 0 Or K > 0 Then K = K + 1: If K > 2 Then Exit Function
   If NbUnit > 0 Then
      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"
      If K = 2 Then DuréeEnClair = DuréeEnClair & " et "
      DuréeEnClair = DuréeEnClair & Trad: End If
   DuRest = DuRest - DuUnit * NbUnit: Next U
End Function

Elle donne volontairement un texte d'une précision de 2 unités de temps consécutives seulement. Je l'utilisais pour apprécier des anciennetés de fichiers.

 

[aragdur]

Bonjour.
Inspirez vous peut être de cette fonction perso :

Function DuréeEnClair(ByVal DuRest As Double) As String
Dim U As Long, DuUnit As Double, NbUnit As Long, K As Long, Trad As String
For U = 1 To 6
   DuUnit = Choose(U, 365.2425, 30.436875, 7, 1, 1 / 24, 1 / 1440)
   NbUnit = Int(DuRest / DuUnit)
   If NbUnit > 0 Or K > 0 Then K = K + 1: If K > 2 Then Exit Function
   If NbUnit > 0 Then
      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"
      If K = 2 Then DuréeEnClair = DuréeEnClair & " et "
      DuréeEnClair = DuréeEnClair & Trad: End If
   DuRest = DuRest - DuUnit * NbUnit: Next U
End Function

Salut,

merci pour cet élément.
tu rajoutes ça sur le code de la page ?

 

[Dranreb]

Comme toute fonction perso elle se met dans un module standard.
Après :

=DuréeEnClair(;[@DATE]-[@[DATE DE NAISSANCE]])

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[aragdur]

JHA,

c'est parfait

merci à vous 2

 

[Dranreb]

La formule de JHA ne donne pas toujours le même résultat pour une même durée en jours entre les deux dates. C'est gênant je trouve d'avoir un texte différent pour des âges en jours identiques.

 

[aragdur]

un exemple stp ?

 

[Dranreb]

 

[aragdur]

est ce que le fait d'avoir des mois à 31 j ou des semaines incompletes ne joue t il pas sur la donne ?

 

[aragdur]

Comme toute fonction perso elle se met dans un module standard.
Après :

=DuréeEnClair(;[@DATE]-[@[DATE DE NAISSANCE]])

Je ne vois pas comment elle se gere

j'ai bien mis la fonction en module puis inscrit la fonction
j' ai une erreur de valeur ....

 

[JHA]

Bonjour à tous,

Avec la formule et le VBA

JHA

 

[aragdur]

Bonjour à tous,

Avec la formule et le VBA

JHA

excellent,
j'adopte !!!

le ";" dans la formule était de trop pour moi ^^'

cdlt

 

[Dranreb]

Je propose une réécriture de ma fonction avec un paramètre d'option supplémentaire facultatif indiquant la précision souhaitée (-1 assumé, soit l'ordre de grandeur assez vague qui me convenait).
S'il est positif il indique la plus fine unité de durée souhaitée, de 1 pour l'année jusqu'à 6 pour la minute.
Sinon c'est, en quelque sorte, la virgule flottante, 0 pour un seul terme jusqu'à -5 pour tous.

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

 

[Modeste geedee]

La formule de JHA ne donne pas toujours le même résultat pour une même durée en jours entre les deux dates. C'est gênant je trouve d'avoir un texte différent pour des âges en jours identiques.

si les dates d'origines ne sont pas les mêmes cela arrivera tant que l'on prendra des durées variables pour des constantes !!!
l'unité Mois n'est pas un sous-multiple de An
l'unité Semaine n'est pas un sous-multiple de Mois
seul jour est une constante !