Dispense d'âge

[dhiouf]

Bonjour à tous

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

=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.

 

[dhiouf]

Re : Dispense d'âge

Bonjour à tous

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

=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.

Salut;
Je veux dire dans ma question précédente, comment soustraire la durée effectuée de l'âge du candidat

 

[job75]

Re : Dispense d'âge

Bonjour dhiouf,

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

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+

 

[dhiouf]

Re : Dispense d'âge

Bonjour dhiouf,

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

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+

Merci beaucoup job75 pour ta réponse, c'est exactement que je cherche.

 

[job75]

Re : Dispense d'âge

Bonjour dhiouf,

Une autre solution, sans VBA, avec cette formule en A5 :

=DATE(ANNEE(A1)+GAUCHE(A4;CHERCHE("a";A4)-1);MOIS(A1)+STXT(A4;CHERCHE("m";A4)-3;2);JOUR(A1)+STXT(A4;CHERCHE("j";A4)-3;2))

Attention, un espace et un seul entre les nombres et les mots.

Fichier (2).

A+

 

[dhiouf]

Re : Dispense d'âge

Je te remercie beaucoup job75, c'est excellente ta solution sans VBA.