Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вычисление возраста [D7]

Ксения © (2012-01-29 14:59:00)
Помогите написать программу, которая вычисляет возраст при вводе даты рождения и текущей даты

Ксения (2012-01-29 16:33:00) [1]
Спасибо, с полным листингом намного понятнее)

Омлет (2012-01-29 16:30:00) [2]

> Dimka Maslov © (29.01.12 16:05) [10]

Я и не говорил, что в году 365.25 дней - это лишь аппроксимация для вычислений.
http://docwiki.embarcadero.com/VCL/en/DateUtils.ApproxDaysPerYear

> Ксения (29.01.12 16:12) [11]
> а что такое decode date, не подскажете?

decode date - декодирование даты. Функция DecodeDate позволяет узнать значение года, месяца и дня по переменной типа TDateTime.
Кстати, чтобы не опираться на аппроксимированное значение числа дней в году, лучше вычислять возраст так: http://www.efg2.com/Lab/Library/Delphi/DatesAndTimes/AgeCalculation.TXT

DVM (2012-01-29 16:29:00) [3]

> а что такое decode date, не подскажете?

http://www.delphisources.ru/pages/faq/faq_delphi_basics/DecodeDate.php.html

Ксения (2012-01-29 16:12:00) [4]
а что такое decode date, не подскажете?

Dimka Maslov (2012-01-29 16:05:00) [5]

> Омлет © (29.01.12 15:46) [9]

В григорианском календаре один год составляет 365.2425 суток

Омлет (2012-01-29 15:46:00) [6]
Или так:

Age := trunc((Now - dtpBirthDate.Date) / 365.25);

Ксения (2012-01-29 15:45:00) [7]
Омлет, спасибо!

Омлет (2012-01-29 15:43:00) [8]
В модуле DateUtils есть функция YearsBetween.

Age := YearsBetween(Now, dtpBirthDate.Date);

Ксения (2012-01-29 15:37:00) [9]
:D нет уж, как-нибудь сами справимся

Ega23 (2012-01-29 15:33:00) [10]

> Сложность в том, что язык совсем не знаю

Фото сисек с пруфпикчей. Тогда напишем помочь программу.

Плохиш (2012-01-29 15:22:00) [11]
Küche, Kinder, Kirche.

Ксения (2012-01-29 15:19:00) [12]
Сложность в том, что язык совсем не знаю

Anatoly Podgoretsky (2012-01-29 15:14:00) [13]
> Ксения (29.01.2012 14:59:00) [0]

Разница / 365,25

Dimka Maslov (2012-01-29 15:11:00) [14]
Вычислить разность двух вещественных чисел. В чём может быть сложность?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »