Помогите плиз с датами в Delphi.

@Vendy · Регистрация: 15.10.2016

Вообщем суть проблемы такова- есть блокнот с записями дней рождений.Допустим 100 дат. Нужно определить возраста по этим датам на любое выбранное число и записать в массив. Например в блокноте такие даты
13.12.1989
4.04.1960
16.02.1975
надо узнать их возраста на данный момент-
21
51
36
теперь надо узнать их возраста на 16.12.2011
22
51
36
теперь на 16.12.2000
11
40
25

помогите пожалуйста,очень срочно надо

@HyperZen · 01.12.2011, 07:17

Delphi

1 2	uses DateUtils;

Delphi

var
  date1, date2: TDate; 
...
date1 := StrToDate(Edit1.Text);
date2 := StrToDate(Edit2.Text);
Label1.Caption := FloatToStr(YearsBetween(date1, date2));

@Vendy 0 / 0 / 0 Регистрация: 15.10.2016 Сообщений: 6
		1
	Помогите плиз с датами в Delphi. 30.11.2011, 18:25. Показов 1062. Ответов 1 Метки нет (Все метки) Вообщем суть проблемы такова- есть блокнот с записями дней рождений.Допустим 100 дат. Нужно определить возраста по этим датам на любое выбранное число и записать в массив. Например в блокноте такие даты 13.12.1989 4.04.1960 16.02.1975 надо узнать их возраста на данный момент- 21 51 36 теперь надо узнать их возраста на 16.12.2011 22 51 36 теперь на 16.12.2000 11 40 25 помогите пожалуйста,очень срочно надо 0

Опции темы

Помогите плиз с датами в Delphi.

Решение