Текущий архив: 2006.09.17;
Скачать: CL | DM;

Вниз

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

← →
иван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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.042 c