code VBA pour calculer le nombre d'année entre 2 dates à partir d'une date donnée

Bonjour

Pas facile de décrire l'intitulé...

en fait, j'ai besoin d'aide pour trouver au moins des idées pour calculer le nombre d'années séparant 2 dates, mais à partir d'une année donnée.
Je m'explique :

J'ai la date d'entrée d'une personne dans l'entreprise. pour connaître son ancienneté, c'est facile : maintenant()-[date entree] : OK
Mais il me faudrait connaître le nombre d'années entre 2015 et aujourd'hui, en tenant compte des jours et mois de chacune des dates... suis-je clair ?

Un exemple : La personne est entrée le 12/01/1994. à la date d'aujourd'hui, cela fait 3 ans d'ancienneté depuis 2015
par contre, si elle est entrée le 12/05/1994, elle n'aura à aujourd'hui que 2 ans d'ancienneté...

Merci de votre aide

Sylvain

Bonjour.

La fonction DateDiff va faire cela pour toi.

Quelque chose comme :

Code:

---

DateDiff("y", DateEntree, Date())

---

Attention Acces compte en "interval" entier (ici l'année) donc tu auras 1, 2, 3 mais pas 1.5.
Si tu as besoin de plus de précision, tu voudras peut-être calculer en mois et diviser par 12.

Code:

---

DateDiff("m", DateEntree, Date())/12

---

En jours cela va être pénible à cause des années bisextiles.
Dans ce cas, faire une boucle en VBA entre la date début et la date de fin et de compter toi-même les années est sans doute la solution la plus simple.

A+

Merci de ton aide

Mais ça ne fonctionne pas, erreur de syntaxe - Mais ça, j'en fait mon affaire...
Non, là où ça ne colle pas, c'est que cette formule VBA va calculer le nombre de jour entre la date d'entrée et la date du jour(soit l'ancienneté).
Mais il me faut l'ancienneté à compter de l'année 2015

ou alors, il faut trouver le moyen de transformer la date d'entrée (12/01/1994) en 2015 (12/01/2015) - et je pourrai alors faire le DateDiff...

Merci encore, je cherche de mon côté

Bonjour

Donc tu veux calculer une ancienneté à partir de 2015, mais avec les jour et mois d'entrée.
Voici un code d'essai dont tu peux t'inspirer :

Code:

---

1 2 3 4 5

Sub années() Dim DateEntrée As Date DateEntrée = "12/5/1994" MsgBox Int(DateDiff("d", Day(DateEntrée) & "/" & Month(DateEntrée) & "/2015", Date) / 365) End Sub

---

Titi95

Oui, c'est bien ça, l'ancienneté depuis 2015

Pour le code, je n'y connais rien...
Je continue à chercher...

Merci encore

Réalise des essais avec mon code.

Fait un copier-coller complet dans un Module et exécute le.
Change la date plusieurs fois.

La formule de calcul à retenir est celle-ci :

Code:

---

Int(DateDiff("d", Day(DateEntrée) & "/" & Month(DateEntrée) & "/2015", Date) / 365)

---

Ensuite à toi de l'intégrer où tu le souhaites dans ta base.

Titi95

J'y suis presque avec ce code et grâce à toi...

Code:

---

=Année(Date()-CDate(Jour([Date entrée CAT]) & "/" & Mois([Date entrée CAT]) & "/2015"))

---

Sauf que le résultat est 1902 - pour une réponse qui devrait être 2...ou 02

Je pourrais ajouter à la formule "-1900"... mais ce n'est pas très propre...

à suivre...

Bonjour.

Je pense que :

Code:

---

=DateDiff("a"; DateSerial(2015; Month([Date entrée CAT]); Day([Date entrée CAT]))

---

Va te donner le résulat voulu.
Le DateSerial te permet de créer directement une date sans passer par une conversion de chaîne de caractère.
Et si tu es dans une requête, Access va traduire le nom des fonctions en français pour toi.

si tu es dans du VBA ou du SQL il faut mettre :

Code:

---

=DateDiff("y", DateSerial(2015, Month([Date entrée CAT]), Day([Date entrée CAT]))

---

A+

Avec un peu de retard...

Désolé Marot, mais tes codes comportent qq oublis... et bloquent.
Par contre, merci pour SerieDate que je ne connaissais pas, mais cela revient au même.

Donc, papagei2

1 Si tu es en VBA tu peux reprendre mon code précédent

Code:

---

Int(DateDiff("d", Day(Date Entrée CAT) & "/" & Month(Date Entrée CAT) & "/2015", Date) / 365)

---

2 Par contre, si tu es dans une Source de données d'une Zone de texte de formulaire, ou dans une requête (mode colonnes, pas SQL) il faut employer ceci

Code:

---

=Int(DiffDate("a";SérieDate(2015;Mois([Date entrée CAT]);Jour([Date entrée CAT]));Date())/365)

---

Le principe de la formule est le même, mais pas la syntaxe !

Un petit conseil au passage : évite les espaces, caractères particuliers (hormis '_') dans les noms de champs, variables, fichiers... Cela peu parfois être bloquant
Exemple : Date entrée CAT >>> DateEntréeCAT

Titi95

Merci

C'est effectivement pour mettre dans un champ de formulaire.
la seconde formule fonctionne très bien.

Merci beaucoup de votre aide

Sylvain

C'est encore moi...

En ce que j'attendais était beaucoup plus simple que ça...
Je me suis planté dans l'objectif à atteindre... trop facile...

Le code attendu était :

Code:

---

=VraiFaux([Date entrée CAT]>#01/01/2015#;Int(DiffDate("a";[Date entrée CAT];Date())/365);0)

---

Bah oui, puisque la référence était 2015, il suffisait de filtrer celles étant supérieures à 2015, et de calculer l'écart en année entre 01/01/2015 et aujourd’hui...

Désolé pour le temps perdu, mais merci pour les nouvelles formules et nouveaux codes que j'ai appris.

Amicalement

Sylvain

Bonjour.

Diviser par 365 ne tient pas compte des années bisextiles.
Si tu veux un calcul plus proche, il faut diviser par 365.25.

A+