Autres inclure des si dans une formule datedif

[patricktoulon]

Bonjour a tous

je voudrais inclure des si dans une formule datedif
en effet j'ai une formule qui peut me donner comme résultat
0 ans 0 mois 15 jours

je voudrais inclure des si si les valeurs an et mois et jour donne zero
l'exemple précédemment donné devrait donner par exemple simplement 15 jours
et pour parfaire la chose je voudrais aussi des si >1 mettre les "s"

la formule

=DATEDIF(A1;B1;"y")&" Ans "
&DATEDIF(A1;B1;"ym")&" mois "
&DATEDIF(DATE(ANNEE(B1);MOIS(B1);JOUR(A1));B1;"d")&" jours"

 

[patricktoulon]

bon j'espere ne pas encore tomber sur des dates qui vont planter

la formule sans name

=SUPPRESPACE(REPT(DATEDIF(Feuil1!A2;Feuil1!B2;"y")&" an"&SI(DATEDIF(Feuil1!A2;Feuil1!B2;"y")=1;" ";"s ");DATEDIF(Feuil1!A2;Feuil1!B2;"y")>0)&REPT(DATEDIF(Feuil1!A2;Feuil1!B2;"ym")&" mois ";DATEDIF(Feuil1!A2;Feuil1!B2;"ym")>0)&REPT(Feuil1!B2-DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2)-(Feuil1!B2<DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2);JOUR(Feuil1!A2)));JOUR(Feuil1!A2))&" jour"&REPT("s";Feuil1!B2-DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2)-(Feuil1!B2<DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2);JOUR(Feuil1!A2)));JOUR(Feuil1!A2))>1);Feuil1!B2-DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2)-(Feuil1!B2<DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2);JOUR(Feuil1!A2)));JOUR(Feuil1!A2))>0))

pour l'ecrire car ca devient difficile de voir une erreur vu la longueur

Sub test()
    f = "=SUPPRESPACE(REPT(fan&"" an""&SI(fan=1;"" "";""s "");fan>0)&REPT(fmois&"" mois "";fmois>0)&REPT(fjour&"" jour""&REPT(""s"";fjour>1);fjour>0))"
    fan = "DATEDIF(Feuil1!A2;Feuil1!B2;""y"")"
    fmois = "DATEDIF(Feuil1!A2;Feuil1!B2;""ym"")"
    fjour = "Feuil1!B2-DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2)-(Feuil1!B2<DATE(ANNEE(Feuil1!B2);MOIS(Feuil1!B2);JOUR(Feuil1!A2)));JOUR(Feuil1!A2))"

    f = Replace(Replace(Replace(f, "fan", fan), "fmois", fmois), "fjour", fjour)
    Debug.Print f
End Sub

 

[patricktoulon]

re
@Modeste geedee

jours
=jours(B1-A1)

je suis pas sur pour jour il me semble que ca va me donner la difference en nombre de jours entres les deux dates c'est pas ce que je veux
edit:
ca me donne #NOM?

edit2:
ta formule mois(=Mois(B1-A1)-1)
me donne 11 pour 01/01/2019 01/01/2020

 

[patricktoulon]

résultat pour la méthode de Job75

ça me parait correct

 

[job75]

En VBA cette fonction semble bien convenir :

Function AnsMoisJours$(dat1, dat2)
If Not IsDate(dat1) Or Not IsDate(dat2) Then Exit Function
If dat2 < dat1 Then Exit Function
Dim test As Boolean, a%, m%, j%
test = dat2 < DateSerial(Year(dat2), Month(dat2), Day(dat1)) 'True = -1
a = Year(dat2) - Year(dat1) + test
m = Month(dat2) - Month(dat1) + test
If m < 0 Then m = m + 12
j = dat2 - DateSerial(Year(dat2), Month(dat2) + test, Day(dat1))
AnsMoisJours = RTrim(IIf(a, a & " an" & IIf(a = 1, " ", "s "), "") & IIf(m, m & " mois ", "") & IIf(j, j & " jour" & IIf(j = 1, "", "s"), ""))
End Function

 

[patricktoulon]

re
bonjour Job75
vba c'est pas un soucis je voulais juste sortir de ma zone de confort avec les formules

 

[patricktoulon]

re
@job75 j'ai une erreur avec ta fonction

25/01/2017 | 02/02/2020
donne 2 ans 8 jours
la formule elle donne 3 ans 8 jours

 

[job75]

Oui j'avais le sentiment que mon VBA n'était pas bon, il vaut mieux utiliser DateDiff.

 

[job75]

Bon dans ce fichier (2) je reprends exactement en VBA ce que j'ai fait par formule :

Function AnsMoisJours$(dat1, dat2)
If Not IsDate(dat1) Or Not IsDate(dat2) Then Exit Function
If dat2 < dat1 Then Exit Function
Dim a%, m%, test As Boolean, j%
a = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""y"")")
m = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""ym"")")
test = dat2 < DateSerial(Year(dat2), Month(dat2), Day(dat1)) 'True = -1
j = dat2 - DateSerial(Year(dat2), Month(dat2) + test, Day(dat1))
AnsMoisJours = RTrim(IIf(a, a & " an" & IIf(a = 1, " ", "s "), "") & IIf(m, m & " mois ", "") & IIf(j, j & " jour" & IIf(j = 1, "", "s"), ""))
End Function

 

[patricktoulon]

bonsoir Job75
ca match
un recap de ton idée

 

[Modeste geedee]

Bonjour®

Bon dans ce fichier (2) je reprends exactement en VBA ce que j'ai fait par formule :

les durées de mois et années n'étant pas des constantes mathématiques,
les habitués savent ici ce que je pense de la représentation d'un âge en année mois jours
[MODE ]

il y a 2 jours jusque fin de mois janvier 2016
il y a 22 jours en début mars 2020 soit 24 jours (22 si l'on exclu les bornes)
si l'on considère 4 années entières et 1 mois complets
comment expliquer le 21 jours obtenu ??
[/MODE ]

 

[patricktoulon]

re
@Modeste geede
effectivement la on peu considéré un soucis de borne incluant le jour des dates ou pas

 

[job75]

comment expliquer le 21 jours obtenu ??

Avec la méthode que j'ai utilisée, 1 mois après le 30/01/2020 nous amène au 01/03/2020 (29 + 1).

Il faut bien se donner une méthode, qui ne fait rien n'a rien

 

[patricktoulon]

re
si on considère la date 2 à 22/03/2020 00:00:00 le 22 jour ne peut pas être compté
et pareil pour le jour date 1 on considere quoi? 00:00:00 ou 23:59:59
je pense que la on peut simplement ajouter une option true/false a la fonction vba et laisser le choix a l'utilisateur de borner -1/+1

 

[Modeste geedee]

Bonjour®

Avec la méthode que j'ai utilisée, 1 mois après le 30/01/2020 nous amène au 01/03/2020 (29 + 1).
Il faut bien se donner une méthode, qui ne fait rien n'a rien

je ne remet pas en cause la méthode...

le problème est biaisé dès qu'on le pose !!!
"les durées de mois et années ne sont pas des constantes mathématiques"
il faut manger 5 fruits ou légumes par jour !! (cerises ou pastèques ???)

l'anomalie signalée #25 devient kafkaïenne si le nombre de jour cumulés (jusque fin mois début + jours début mois fin) dépasse 29jr
dans ce cas on doit ajouter un mois entier et réduire la fraction de jours résiduels...
Quelle durée de mois choisir ???

• durée de mois début ou bien durée de mois fin
• ou encore durée de mois la plus ou la moins représentée dans la décomposition en mois
• ou autre durée.

la méthode qui me semble la plus satisfaisante (vue de l'esprit)
est celle des durées moyennes: 365.25 et 365.25/12
bien que inconsistante, elle est réversible .
et qui pour une même durée totale en jours donne toujours le même résultat AMJ indépendamment des dates de début et de fin.

Par curiosité connaîtrais-tu d'autres applications intégrant l'équivalent de DATEDIF ou cette représentation AMJ et éventuellement les anomalies ou bugs y attachés ??
dès l'origine d'Excel les anomalies de DATEDIF ont été signalées, à mettre relation avec le fait que cette fonction ne soit plus documentée depuis plus de bientôt 20 ans !!!

 

[Modeste geedee]

Bonsour®

re
si on considère la date 2 à 22/03/2020 00:00:00 le 22 jour ne peut pas être compté
et pareil pour le jour date 1 on considere quoi? 00:00:00 ou 23:59:59
je pense que la on peut simplement ajouter une option true/false a la fonction vba et laisser le choix a l'utilisateur de borner -1/+1

l'utilisateur n'a bien souvent simplement pas conscience de la complexité de la gestion des dates et calendriers.