Frage : Delphi-Alter zwischen zwei Daten ging als Jahr und Monate zurück

Kann somwebody bitte helfen. Ich muss Alter in den nicht nur Jahren berechnen, aber Monate too.

I haben ein D.O.B und ein Risiko-Anfangsdatum (irgendein Datum zukünftig).

I gefunden, viele Beispiele gerade der Jahre berechnend aber können Code nicht finden, um die Monate too.

Please Hilfe zu berechnen!!!

Alan

Antwort : Delphi-Alter zwischen zwei Daten ging als Jahr und Monate zurück

Ich benutzt dateutils Maßeinheit mit Methoden YearsBetween und MonthsBetween, gesetzt ich auch 2 TDateTimePickers auf meine Form mit Namen Date1 und Date2:
1:
2:
3:
4:
5:
6:
7:
8:

var
  Jahre, Monate: ganze Zahl;
anfangen
  Jahre: = YearsBetween (Date1.Date, Date2.Date);
  Monate: = MonthsBetween (Date1.Date, Date2.Date) - Jahre * 12;
  showmessage (inttostr (Jahre));
  showmessage (inttostr (Monate));
Ende;
Weitere Lösungen  
 
programming4us programming4us