Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
ВнизРабота с датой Найти похожие ветки
← →
иван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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.043 c