Monate berechnen zwischen zwei datums

[peter12]

Danke für die Lösung an Phoenix

Hab die Code mußte 1 Monat abziehen .


var Year, Month,Day ,Year2, Month2,Day2: Word;
Geburtsdatum : tdate; r : integer;
begin
Geburtsdatum := strtodate(edit1.text);
DecodeDate(Geburtsdatum, Year, Month,Day);
DecodeDate(now, Year2, Month2,Day2);
r := (((Year2-Year)-1)*12)+12-Month+Month2
end;
Peter