Microsoft 365 Date de naissance

Scorpio · 13 Mai 2021

Bonjour le Forum,
Dans ce classeur, j'ai une formule ancienne commençant par =DateDif,
Mais ce DateDif sauf erreur, n'existe plus, mais alors, par quelle formule je pourrais la remplacer ??
Merci de votre aide
Scorpio à ++++

Scorpio · 13 Mai 2021

JNP à dit:
Bonjour,
Sur 2016
=DATEDIF(DATEVAL("01/01/1900");MAINTENANT();"Y")
fonctionne très bien..

Salut JNP,
Ayant saisi ta formule, effectivement elle fonctionne aussi dans Office 365.
Merci des renseignements, a bientôt
Et merci à tous
Scorpio

patricktoulon · 13 Mai 2021

JNP à dit:
Bonjour @patricktoulon,
Les mois seront donnés par "M" comme Month, les jours par "D" comme Day... Je constatais surtout que cette formule fonctionnait bien toujours avec les bons arguments.
=DATEDIF(DATEVAL("01/01/1900");MAINTENANT();"Y")&" ans ou "&DATEDIF(DATEVAL("01/01/1900");MAINTENANT();"M")&" mois ou "&DATEDIF(DATEVAL("01/01/1900");MAINTENANT();"D")&" jours."
donnera les 3, mais je ne vois pas l'intérêt...

hoh là la formule n'est pas aussi simple !!!!!
c'est pas différence décanter sous 3 unité qu'il est question ici
reprends la discussion depuis le début et tu va comprendre tout seul

@JNP voila ce que donne ta formule en A1 et la mienne avec ma fonction perso en A2

riton00 · 13 Mai 2021

Bonsoir,

Autre formule

Code:

=ENT((AUJOURDHUI()-B4)/365,25)& " ans "&MOIS(AUJOURDHUI()-B4)-1&" mois "&ENT(JOUR(AUJOURDHUI()-B4)/7)&" semaines et "&MOD(JOUR(AUJOURDHUI()-B4);7)&" jours"

Slts

patricktoulon · 13 Mai 2021

bonsoir @riton00
pas mal ta formule mais il manque les accords et la suppression des inutiles
par exemple

pour le 10/02/2021 elle donne

0 ans 0 mois 0 semaines et 3 jours

ma fonction donne 3 jours

patricktoulon · 13 Mai 2021

je l'ai encore un peu amélioré avec le "et " optionel selon le résultat

VB:

Function Datediff_AMJ$(ByVal dat1, Optional ByVal dat2 = 0)
    Dim a%, m%, j%, dtemp As Date, Erreur$
    If dat2 = 0 Then dat2 = Date
    Erreur = IIf(Not IsDate(dat1), "(1)", ""): Erreur = Erreur & IIf(Not IsDate(dat2), "(2)", ""): Erreur = IIf(Erreur <> "", "Invalid Argmt(" & Erreur & ")", "")
    If Erreur <> "" Then Datediff_AMJ = Erreur: Exit Function
    dat1 = CDate(dat1): dat2 = CDate(dat2)
    If dat1 > dat2 Then dtemp = dat1: dat1 = dat2: dat2 = dtemp
    a = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""y"")")
    m = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""ym"")")
    j = Abs(DateSerial(Year(dat1) + a, Month(dat1) + m, Day(dat1)) - dat2)
    Datediff_AMJ = RTrim(IIf(a, a & " an" & IIf(a = 1, " ", "s "), "") & IIf(m, m & " mois ", "") & IIf(m Or a, "et ", "") & IIf(j, j & " jour" & IIf(j = 1, "", "s"), ""))
End Function

Modeste geedee · 13 Mai 2021

Bonsour®

patricktoulon à dit:
je l'ai encore un peu amélioré avec le "et " optionel selon le résultat

allez encore un petit effort
pour le "et" intempestif ...

patricktoulon · 13 Mai 2021

bien vu @Modeste geedee

VB:

Function Datediff_AMJ$(ByVal dat1, Optional ByVal dat2 = 0)
    Dim a%, m%, j%, dtemp As Date, Erreur$
    If dat2 = 0 Then dat2 = Date
    Erreur = IIf(Not IsDate(dat1), "(1)", ""): Erreur = Erreur & IIf(Not IsDate(dat2), "(2)", ""): Erreur = IIf(Erreur <> "", "Invalid Argmt(" & Erreur & ")", "")
    If Erreur <> "" Then Datediff_AMJ = Erreur: Exit Function
    dat1 = CDate(dat1): dat2 = CDate(dat2)
    If dat1 > dat2 Then dtemp = dat1: dat1 = dat2: dat2 = dtemp
    a = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""y"")")
    m = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""ym"")")
    j = Abs(DateSerial(Year(dat1) + a, Month(dat1) + m, Day(dat1)) - dat2)
    Datediff_AMJ = RTrim(IIf(a, a & " an" & IIf(a = 1, " ", "s "), "") & IIf(m, m & " mois ", "") & IIf(m Or a And j > 0, "et ", "") & IIf(j, j & " jour" & IIf(j = 1, "", "s"), ""))
End Function

VIARD · 13 Mai 2021

Bonsoir à tous

Si je peux me permettre, vos fonction sont sophistiquées.
Bon tous les chemins mènent à Rome, alors j'y vais de ma fonction.
qui tourne depuis une quinzaines d'années, sans retouche, aujourd'hui je ferais autrement.
pièce jointe.

salutation Jean-Paul

patricktoulon · 14 Mai 2021

Bonsoir @VIARD
pareil même punition que @riton00
tu n'accorde pas tu te contente de mettre en parenthèses
et tu ne nettoie pas ton résultat si moins d'un mois

ça quand meme du bon quand c'est sophistiqué

VB:

Function Datediff_AMJ$(ByVal dat1, Optional ByVal dat2 = 0)
    Dim a%, m%, j%, dtemp As Date, Erreur$
    If dat2 = 0 Then dat2 = Date
    Erreur = IIf(Not IsDate(dat1), "(1)", ""): Erreur = Erreur & IIf(Not IsDate(dat2), "(2)", ""): Erreur = IIf(Erreur <> "", "Invalid Argmt(" & Erreur & ")", "")
    If Erreur <> "" Then Datediff_AMJ = Erreur: Exit Function
    dat1 = CDate(dat1): dat2 = CDate(dat2)
    If dat1 > dat2 Then dtemp = dat1: dat1 = dat2: dat2 = dtemp
    a = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""y"")")
    m = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""ym"")")
    j = Abs(DateSerial(Year(dat1) + a, Month(dat1) + m, Day(dat1)) - dat2)
    Datediff_AMJ = RTrim(IIf(a, a & " an" & IIf(a = 1, " ", "s "), "") & IIf(m, m & " mois ", "") & IIf(m Or a, IIf(j > 0, "et ", ""), "") & IIf(j, j & " jour" & IIf(j = 1, "", "s"), ""))
End Function

d'autant plus que ta fonction est chronophage
pour 4 cellules on voit le curseur d'attente c'est significatif

ChTi160 · 14 Mai 2021

Re
Bonjour a toutes et Tous
chez moi aussi (365) :

VB:

=DATEDIF(DATEVAL("01/01/1900");MAINTENANT();"Y")

ça fonctionne direct Lol
Bonne journée
aà vous
jean marie

Microsoft 365 Date de naissance

Scorpio

XLDnaute Impliqué

Pièces jointes

Scorpio

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires