AIDE SUR PROCEDURE

Bonjour tout le monde .je demande un coup de main pour une procédure qui me fatigue depuis belle lurette.je veux gérer une mutuelle d'assistance en cas de sinistre.

En pratique voici ce que je souhaite


Voici 2 Adhérents YOUSSEF et ZARA

CAS 1

YOUSSEF née le 14/02/1944 à aujourd’hui 77 ans vient adhérer à la mutuelle

Son DROIT d’adhésion est de 52 000 francs parce que age > 50

il commencera a être assisté en cas de sinistre 10 mois après

Sa date d’adhésion qui est aujourd’hui 04/07/2021 donc n’est pas assisté avant

En somme il sera assisté en cas de sinistre à partir du 04/05/2022 que j'appelle Date d'effet





CAS 2

YOUSSEF née le 14/02/1980à aujourd’hui 41 ans vient adhérer à la mutuelle

Son DROIT d’adhésion est de 12 000 francs parce que age < 50

il commencera a être assisté en cas de sinistre 5 mois après

Sa date d’adhésion qui est aujourd’hui 04/07/2021 donc n’est pas assisté avant

En somme il sera assisté en cas de sinistre à partir du 04/12/2021 que j'appelle Date d'effet



Je souhaite avoir une procédure pour calculer automatiquement l'age, le montant et la date d'effet sachant que date de naissance et date d'adhésion sont saisies.

La date d’effet 04/05/2022 du CAS 1



La date d’effet 04/12/2021 du CAS 2



Merci bien espérant avoir bien expliqué

 

voici ma procédure qui ne marche que pour le cas 2

PROCÉDURE CalculerDateAffective(dNaissance est Date, dAdhésion est Date)

dAge est Date
moMontant est monétaire
dEffective est une Date
dAge=Age(dNaissance,dAdhésion)

SELON dAge..Année
CAS >50
dEffective..Mois+=10
moMontant=52000
AUTRE CAS
dEffective..Mois+=5
moMontant=12000
FIN

RENVOYER (dEffective,moMontant)

SAI_DTEEFF = dEffective
SAI_DROIT = moMontant

 

je rappelle que Dandydunk m a donné un coup de main mais ca n a pas marché peut être par mon inexpérience.