Dank dank dank
so sieht es gut aus ... ich hatte es zwischenzeitlich ein wenig verkompliziert
Delphi-Quellcode:
var dNow,dtNow, dtBirth, dLis,dtList : TDateTime;
dtList := EncodeDate(y,m,d);
dtNow := Now;
dNow:=now;
dLis:=EncodeDate(2006,3,2);
Edit1.Text:=InttoStr(DayOfTheYear(dNow-dLis));
Edit2.Text:=IntToStr(DaysBetween(dtNow, dtList));
Nun beträgt ist der Unterschied nur noch einen Tag ?? Liegt das an der Uhrzeit ???
Die Variante von Klaus ist in Ordnung und funktioniert....
ascotlx