Dispense d'âge

dhiouf à dit:

Bonjour à tous

Dans A1 j'ai la date de naissance, A2 date de concours.
Pour trouver l'âge du candidat j'utilise la formule

Code:

=datedif(A1;A2;"y")&" ans "&datedif(A1;A2;"ym")&" mois "&datedif(A1;A2;"md")&" jours"

comment faire une dispense d'âge d'une égale durée à celle effectuée dans les administrations.

exemple:
Age du candidat: 35 ans, 5 mois et 14 jours
durée effectuée: 2 ans, 6 mois et 0 jours

Merci d'avance.

Cliquez pour agrandir...

job75 à dit:

Bonjour dhiouf,

Voyez le fichier joint et cette fonction VBA dans Module1 (Alt+F11) :

Code:

Function Decale(d As Date, t As String) As Date
Dim s
t = Replace(Replace(Replace(t, "ans", ""), "mois", ""), "jours", "")
t = Application.Trim(t) 'SUPPRESPACE
s = Split(t)
Decale = DateSerial(Year(d) + s(0), Month(d) + s(1), Day(d) + s(2))
End Function

Dans "Durée effectuée" il ne doit y avoir que des nombres et les mots : ans mois jours.

A+

Cliquez pour agrandir...