[AC-2010] formulaire de gestion des membres

[pascal5]

Bjr
Je m'en remet a vous car je suis déséperé, j'arrive plus.
Je faits parti d'une association et je voudrais créer un formulaire sous access de gestion des membres. J'ai reussis a créer mon formulaire mais ou ça coince c'est pour le calcul de date, je m'explique.

j'ai une date pour l'entrée d'un membre, une date pour le départ du membre (ex radiation, décès, autre...) et une date du jour.
Comment calculer la durée au sein de l'association du membre en jours/mois/annéee et si le membre est toujours présent comment calculer depuis combien de temps il fait partie de l'asso.
C'est pas évident a expliquer mais si vous voules plus de détails demandé moi.
Merci

[marot_r]

Si tu n'as pas besoin d'une précision absolue, tu peux faire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
dim nbJourcalcule as long:nombreJourCalcule = dateDiff("d",DateDebut, DateFin)
 
dim nbJourRestant as long
 
dim nbNbAnnee as long: nbAnnee = Int(nbJourCalcule/365.25)
 
nbJourRestant = nbJourCalcule - (NbAnnee * 365.25)
 
dim nbMois as long: nbMois = int(nbJourRestant/MoyenneDuNombreDeJoursParMois)
 
nbJourRestant = nbJourCalcule - (NbAnnee * 365.25) - (nbMois * MoyenneDuNombreDeJoursParMois)
 
dim nbJour=nbJourRestant
 
debug.print nbAnnee, nbSemaine, nbJour

Si tu as besoin d'une précision absolue, la méthode la plus simple est de faire une boucle qui part de la date de début jusqu'à la date de fin. Une année c'est chaque fois que tu passes sur la date anniversaire. Pour le comptage des semaines c'est chaque fois que tu passes sur le même jour et pour le nombre de jour c'est le reste.

Esquisse de solution naive à adapter à ton besoin :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
dim DateCourante as date
dim nbAnnee as long
dim nbMois as long
dim nbJour as long
 
DateCourante=DateDebut
 
dim DateDernier as date:DateDernier=DateDebut
 
'Compte les années
do while DateCourante<=DateFin
   if day(dateDebut) = day(dateCourante) and month(DateDebut)=month(DateCourante) and DateDebut<>DateCourante then
      'Dans le test gérer les mois à 28, 29 jours.
      'Part exemple le 28 février compte pour un an si la personne est entrée le 29 février d'une année bisextile.
      NbAnnee=NbAnnee+1
      DateDerniere=DateCourante
   end if
   DateCourante=DateAdd("d",1,DateCourante)
loop
 
'Compte les mois
DateCourante=DateDernier
 
do while DateCourante<=DateFin
   if day(dateDebut) = day(dateCourante) and DateDebut<>DateCourante then
      'Dans le test gérer les mois à 28, 29, 30 et 31 jours.
      'Part exemple le 28 février compte pour un mois si la personne est entrée 
      NbMois=NbMois+1
      DateDerniere=DateCourante
   end if
   DateCourante=DateAdd("d",1,DateCourante)
loop
 
'Compte les jours
DateCourante=DateDernier
 
do while DateCourante<=DateFin
      NbJour=NbJour+1
   DateCourante=DateAdd("d",1,DateCourante)
loop
 
Debug.print nbAnnee, nbMois, nbJour

[pascal5]

Bjr et merci de m'avoir répondu aussi vite.

Que dois je faire avec ces lignes de code ? j'imagine que c'est du VBA.
Je suppose qu'il faut créer un module.
Désolé pour mon ignorance mais notre association existe depuis 1975 et avant tous était simplement écrit sur papier et moi je voudrais faire un formulaire avec un Bdd pour plus de facilité a gérer les membres.
Je m'attaque a un gros morceau mais j'aime les défis.
Merci encore.

[marot_r]

Oui, il s'agit de VBA. Il n'y a pas de fonction toute faite pour obtenir ce que tu veux.

Tu crée un module.

Tu y collee le code.

Mais attention, il n'est pas fonctionnel directement. Il va falloir l'adapter à tes besoins. Si tu débutes ce n'est peut-être pas la fonctionnalité la plus urgente à mettre en place.

A+

[pascal5]

Ok
Merci Marot_r. Je crois qu'un peu de lecture me fera le plus grand bien pour comprendre Access car la je patine grave.
Merci a toi