Question : L'âge de Delphes entre deux dates est retourné comme année et mois

Peut somwebody svp aider. Je dois calculer l'âge en non seulement années mais les mois too.

I ont un D.O.B et une date de début de risque (toute date à l'avenir). le

I ont trouvé beaucoup d'exemples juste des années étant calculées mais ne peuvent pas trouver le code pour calculer l'aide des mois too.

Please ! ! !

Alan class= de

Réponse : L'âge de Delphes entre deux dates est retourné comme année et mois

J'ai employé l'unité de dateutils avec des méthodes YearsBetween et MonthsBetween, j'ai également mis 2 TDateTimePickers sur ma forme avec les noms Date1 et Date2 :

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 :

variété années, mois : nombre entier ; commencer années : = YearsBetween (Date1.Date, Date2.Date) ; mois : = MonthsBetween (Date1.Date, Date2.Date) - années * 12 ; showmessage (inttostr (années)); showmessage (inttostr (mois)); extrémité ;