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