Tage in Jahre

[The Re@l]

So funktionierts

Code:

var
 datum1, datum2: TDatetime;
 i: Integer;
begin
  IF DBEdit10.Text <>'' then begin
  datum1:= Query1.FieldByName('date').AsDateTime;
  datum2:=now;

  i := round(datum2-datum1);
  i := (i * 4);
  edit2.text := (intToStr(i Div 1461)) + ' jahre';
  end else begin
  edit2.Text := '';
  end;
end;

das war doch so wie du meintest @ haegar, oder?