Das müsste auch funktionieren, falls man wirklich nur die Jahre haben möchte:
Delphi-Quellcode:
function AlterInJahren(const damals, heute : TDateTime) : Integer;
begin
result := YearsBetween(damals,heute);
end;
Einfach die DateUtils mit ins uses und fertig.
Hab mich mal beim Funktionskopf an deinen Link gehalten, Matze.
Wobei die Kapselung in eine Funktion eigentlich unnötig ist, da man nun die selben Parameter und Rückgabewerte hat, wie auch bei YearsBetween. Das ganze dient also nur zur Veranschaulichung.