Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.115 c
15-1156633166
demikasy
2006-08-27 02:59
2006.09.17
океан чувств


2-1156839056
Нео666
2006-08-29 12:10
2006.09.17
Компонент TTreeView


1-1154958562
webpauk
2006-08-07 17:49
2006.09.17
Расположение кнопок в ToolBar


15-1156235492
buka
2006-08-22 12:31
2006.09.17
Ася, шрифты, ворд...


15-1156848149
Sam Stone
2006-08-29 14:42
2006.09.17
Модифицированные компоненты