Работа с датой

← →
иван8511 (2006-08-24 19:34) [0]

Подскажите, пожалуйста, как из сегодняшей даты вычесть дату рождения человека, и результат получит в исполнившихся лет.
Например: сегодня 24.08.2006, а дата рождения 15.07.1975,
24.08.2006 - 15.07.1975 = 31 год

← →
Чародей © (2006-08-24 19:39) [1]

Current,Dect:TDataTime
DataTimeToSystemTime(Current-Dect);

← →
Ega23 © (2006-08-24 19:42) [2]

YearsBetween?

← →
DprYg © (2006-08-24 19:45) [3]

uses DateUtils;
Form1.Caption := IntToStr(YearsBetween(EncodeDate(2006, 8, 24), EncodeDate(1975, 7, 15)));

← →
иван8511 (2006-08-24 19:48) [4]

Спасибо!!! Работает

Работа с датой Найти похожие ветки