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

← →
Ксения (2012-01-29 14:59) [0]

Помогите написать программу, которая вычисляет возраст при вводе даты рождения и текущей даты

← →
Dimka Maslov © (2012-01-29 15:11) [1]

Вычислить разность двух вещественных чисел. В чём может быть сложность?

← →
Anatoly Podgoretsky © (2012-01-29 15:14) [2]

> Ксения (29.01.2012 14:59:00) [0]

Разница / 365,25

← →
Ксения (2012-01-29 15:19) [3]

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

← →
Плохиш © (2012-01-29 15:22) [4]

Küche, Kinder, Kirche.

← →
Ega23 © (2012-01-29 15:33) [5]

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

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

← →
Ксения (2012-01-29 15:37) [6]

:D нет уж, как-нибудь сами справимся

← →
Омлет © (2012-01-29 15:43) [7]

В модуле DateUtils есть функция YearsBetween.

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

← →
Ксения (2012-01-29 15:45) [8]

Омлет, спасибо!

← →
Омлет © (2012-01-29 15:46) [9]

Или так:

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

← →
Dimka Maslov © (2012-01-29 16:05) [10]

← →
Ксения (2012-01-29 16:12) [11]

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

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

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

> 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

← →
Ксения (2012-01-29 16:33) [14]

Спасибо, с полным листингом намного понятнее)

Вычисление возраста Найти похожие ветки