Tage in Jahre

[The Re@l]

Holla

Ich hab folgendes Porblem:

Code:

var
d: Tdatetime;
i: integer;
begin
d := Query1.FieldByName('date').AsDateTime;
i := Round(now - d);
edit2.Text := intToStr(i)

so der gibt mir nun die differenz in Tagen zurück, aber ich finde keine Lösung es in Jahre auszugeben, geht das überhaupt? Von wegen Schaltjahr etc.

Cya
The Re@l