Посчитать возраст Опции

[Крастb]

Здраствуйте. Мне необходимо посчитать разницу между двумя датами. Разница должна быть в полных годах.
Например 05.05.1991 и 05.12.1992. Полных лет - 1.

Делаю так

Код

day1 := DateTimePicker2.Date;
day2 := DateTimePicker1.Date;
diff := day2 - day1;
ShowMessage('day2 - day1 = '+FloatToStr(diff)+' days');

Но не нравится так. Хотелось бы получать ответ в точном возрасте. (Возраст = 14 лет)
И как "запретить" ввод даты например 1900?

Сообщение отредактировано: Крастb - 16.12.2009 5:57