Je suis en train de générer ma généalogie et il arrivait souvent que sur les vieux actes de mariages le greffier inscrivait :
- date du mariage, le ...
- âgé de : un nombre d'année + un nombre de mois + un nombre de jours.
Il n'inscrivait pas la date de naissance. Ça semble être une coutume.
Donc pour prendre pas mal de temps en moins avec les calculs, j'aimerais avoir un petit chiffrier qui me donnerait la date de naissance à partir de ces données. Donc, antérieurement dans le temps.
J'espère bien m'exprimer : DATE DU MARIAGE + âge (ans-mois-jours) = date de naissance ???
Si en plus, le chiffrier pouvait calculer un âge entre deux dates à inscrire, ce serait encore mieux.
Si en plus, il calculait l'âge actuel par rapport à une date donnée. Et bien ce serait l'extase totale.
Je joins un chiffrier dans lequel il vous resterait à inclure les formules
Je vous remercie grandement pour votre aide précieuse !!!
Re : Une date de mariage - au mariage : un âge en annnées-mois-jours »»» calcul de la
Bonjour à tous.
Certainement très en retard et peut-être sans grand intérêt : déclinaison de quelques autres fonctions concises qui fournissent à peu près les mêmes résultats que ceux de pierrejean.
Pourvu que d'aucuns n'inclinent à penser que je décline en raison de mon inclination pour le Beaujolais... Encore qu'elle puisse entraîner quelque déclination des boyaux de ma tête...
ℝOGER2327 #7873
Samedi 28 Palotin 142 (Nativité de Saint Satie, Grand Parcier de l’Église d’Art - fête Suprême Quarte) 28 Floréal An CCXXIII, 0,5927h - buglosse 2015-W20-7T01:25:21Z
Le code que je propose est une adaptation à votre problème des propositions que j'ai présentées lors d'une vieille discussion ouverte par Roland_M le 9 février 2014. Vous y trouverez certainement matière à réflexion.
Dans le message #13 de cette discussion, j'ai développé ma méthode conduisant à la formule que j'avais construite. À la page 4 de la Lien supprimé, j'ai donné une transcription en VBA de ma solution par formule.
C'est essentiellement sur ce code que repose ma proposition du message #39 de la présente discussion.
Si tel ou tel point particulier n'est pas clair, n'hésitez pas à le dire. J'essaierai de clarifier si je le peux.
Re : Une date de mariage - au mariage : un âge en annnées-mois-jours »»» calcul de la
Bonjour à tous
Je m'incline bien bas devant la science de ROGER et vous invite à préférer ses codes
@ ROGER
J'avais bien perçu que ma fonction DN souffrait d’imprécision ce que vous avez mis en lumière en étudiant le cas du brave homme né le 1/03/1900 qui se pose la question de sa date de naissance lorsqu'il est âgé d'un jour
En attendant de trouver l’énergie nécessaire pour revoir ceci je vais étudier vos codes
Re : Une date de mariage - au mariage : un âge en annnées-mois-jours »»» calcul de la
Bonjour Roger,
concernant la fonction DecMois et si je comprends bien votre raisonnement :
x correspond au n°série du 1er jour de D décalé du nombre de mois
y correspond au nombre de jours du mois de la date x
Ensuite, et ce je suppose afin de régler le problème des fins de mois à 28, 29, 30 ou 31 jours vous comparez y au jour de la date d'entrée (D) et additionnez à x la valeur la plus petite.
Est-ce bien cela ?
Si je suis bien le déroulé
Code:
If y < Day(D) Then
DecMois = x + y - 1
Else
DecMois = x + Day(D) - 1
End If
pourrait tout aussi bien s'écrire
Code:
DecMois = x + Application.WorksheetFunction.Min(y, Day(D)) - 1
Le code que je propose est une adaptation à votre problème des propositions que j'ai présentées lors d'une vieille discussion ouverte par Roland_M le 9 février 2014. Vous y trouverez certainement matière à réflexion.
Dans le message #13 de cette discussion, j'ai développé ma méthode conduisant à la formule que j'avais construite. À la page 4 de la Lien supprimé, j'ai donné une transcription en VBA de ma solution par formule.
C'est essentiellement sur ce code que repose ma proposition du message #39 de la présente discussion.
Si tel ou tel point particulier n'est pas clair, n'hésitez pas à le dire. J'essaierai de clarifier si je le peux.
concernant la fonction DecMois et si je comprends bien votre raisonnement :
x correspond au n°série du 1er jour de D décalé du nombre de mois
y correspond au nombre de jours du mois de la date x
Ensuite, et ce je suppose afin de régler le problème des fins de mois à 28, 29, 30 ou 31 jours vous comparez y au jour de la date d'entrée (D) et additionnez à x la valeur la plus petite.
Est-ce bien cela ?
Si je suis bien le déroulé
Code:
If y < Day(D) Then
DecMois = x + y - 1
Else
DecMois = x + Day(D) - 1
End If
pourrait tout aussi bien s'écrire
Code:
DecMois = x + Application.WorksheetFunction.Min(y, Day(D)) - 1
Oui bien sûr mais je ne me plaçais pas sous l'angle de la vitesse d'exécution mais uniquement sur le fait de comprendre votre raisonnement. Je regarderai les autres fonctions plus tard.
Merci
A+