Скачать: CL | DM;

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

← →
Ксения   (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]

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


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

---

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

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

---

← →
DVM ©   (2012-01-29 16:29) [12]

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

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

---

← →
Омлет ©   (2012-01-29 16:30) [13]

>  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]

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.005 c