OVH Cloud OVH Cloud

Formules avec les date anniversaires d'outlook

13 réponses
Avatar
Emile
Bonjour à tous,

Je cherche a ajouter deux colonnes suppl. a mon agenda qui me calculent par
rapport a la date de naissance saisie, l'âge exacte de type: Ans, mois,
jours (ex:1)
Et d'autre part, je souhaiterais l'autre champ qui me calcule le temps qu'il
reste depuis (now) jusqu'au prochain anniversaire du contact, de type: Reste
XX jours
Ex 1:
DateDiff("y",[Anniversaire],Date()) & " ans, " &
DateDiff("ym",[Anniversaire],Date()) & " mois, " &
DateDiff("md",[Anniversaire],Date()) & " jours"

Ex 2:
Format(Now(),"dd/mm")-Format([Anniversaire],"jj/mm")

J'ai déjà vu ce genre de formules dans ce forum, mais je ne les retrouve
plus, et mes tests ci dessus, sont franchement lamentables ;-)
Quelqu'un aurait la solution a mes formules?

Merci d'avance,
Cordialement,

3 réponses

1 2
Avatar
Geo
Bonjour

DateDiff("d", Date, IIf(CDate(DatePart("d", DateNaissance) & "/" &
DatePart("m", DateNaissance) & "/" & DatePart("yyyy", Date)) <= Date,
DateAdd("yyyy", 1, CDate(DatePart("d", DateNaissance) & "/" &
DatePart("m", DateNaissance) & "/" & DatePart("yyyy", Date))),
CDate(DatePart("d", DateNaissance) & "/" & DatePart("m", DateNaissance)
& "/" & DatePart("yyyy", Date))))

En remplaçant Date par Date()
et DateNaissance par [Date Naissance]

--
A+
Avatar
Emile
Parfait... ;-))

Merci pour ton aide Géo.

Cordialement,

Emile

"Geo" a écrit dans le message de news:

Bonjour

DateDiff("d", Date, IIf(CDate(DatePart("d", DateNaissance) & "/" &
DatePart("m", DateNaissance) & "/" & DatePart("yyyy", Date)) <= Date,
DateAdd("yyyy", 1, CDate(DatePart("d", DateNaissance) & "/" &
DatePart("m", DateNaissance) & "/" & DatePart("yyyy", Date))),
CDate(DatePart("d", DateNaissance) & "/" & DatePart("m", DateNaissance) &
"/" & DatePart("yyyy", Date))))

En remplaçant Date par Date()
et DateNaissance par [Date Naissance]

--
A+




Avatar
Geo

Parfait... ;-))


Ouf !
Merci pour le retour.

--
A+

1 2