Консультация № 192150
18.12.2017, 06:08
0.00 руб.
0 4 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:На форме помимо прочих компонентов лежат
DateTimePickerData и Edit. В первый вноситься дата рождения клиента, во второй необходимо что бы заносилось полное количество лет на сегодняшний день! Помогите с кодом.

Обсуждение

давно
Старший Модератор
31795
6196
18.12.2017, 11:12
общий
Адресаты:
Покажите, что у Вас есть.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Профессионал
153662
1070
18.12.2017, 11:35
общий
Адресаты:
можно так
Код:
uses
DateUtils;


procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
y: integer;
begin
y:= YearsBetween(date, DateTimePicker1.Date);
edit1.Text:= IntToStr(trunc(Y));
end;
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

давно
Профессионал
153662
1070
18.12.2017, 11:58
общий
это ответ
Здравствуйте, 08101967!
Можно так сделать:
Код:
    uses
DateUtils;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
y: integer;
begin
y:= YearsBetween(date, DateTimePicker1.Date);
edit1.Text:= IntToStr(trunc(Y));
end;

Не забудьте в uses добавить DateUtils.
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

давно
Посетитель
400264
21
18.12.2017, 12:48
общий
Спасибо, то что надо!
Форма ответа