Umwandlung => Tage in "x Jahre, y Monate, und z Tage"

[Coder]

Wie geht die
Umwandlung
Tage => in => "x Jahre, y Monate, und z Tage?

also die Umwandlung in x Jahre und y Tage funktioniert so in etwa (obwohl da auch noch 1 Fehler drin scheint... => bei 365 Tagen )

Delphi-Quellcode:

function umwand(tage: Integer) : integer;
var astr: string;
a, c:  real;
b ,d :integer;
begin
c:= (tage);
a :=  dix (tage , 365.25);
d := trunc(a* 365.25);
b := abs(trunc((tage -(d )))) mod 365;
c := trunc( tage ) ;
astr := floattoStr ( a ) + ' Jahre ' + floattoStr ( b ) + ' Tage'+ chr(13)+chr(10);
Form1.Memo1.Text := astr;
end;

habt Ihr eine Idee?


danke