uses
DateUtils;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
y: integer;
begin
y:= YearsBetween(date, DateTimePicker1.Date);
edit1.Text:= IntToStr(trunc(Y));
end;
uses
DateUtils;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
y: integer;
begin
y:= YearsBetween(date, DateTimePicker1.Date);
edit1.Text:= IntToStr(trunc(Y));
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.