Расчет возраста человека

@oleynik96 · Регистрация: 16.02.2015

Студворк — интернет-сервис помощи студентам

Дана дата рождения человека. Нужно вывести на экран возраст человека (точнее, количество полных лет)

@Freelancer2017 · 10.01.2016, 13:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses System;
 
begin
 
var s := ReadString('date: ');
var birth := DateTime.Parse(s);
var space := DateTime.Now - birth;
var age := DateTime.MinValue.Add(space).Year;
writeln(age);
 
end.

@JuriiMW · 11.01.2016, 09:11

Freelancer2017, для проверки:

date: 1.1.2016
1

@Freelancer2017 · 11.01.2016, 10:36

JuriiMW, в большинстве случаев все нормально считает, а с этим не знаю что можно сделать, минимальное значение DateTime - 01.01.0001

@JuriiMW · 11.01.2016, 10:40

Freelancer2017, а для даты: 12.12.2000 выдаёт 16 !?

@Joy · 11.01.2016, 10:48

Сообщение от JuriiMW

Freelancer2017, для проверки:
date: 1.1.2016
1

должно быть 0, т.к. нужно вывести количество полных лет

@volvo · 12.01.2016, 19:08

Pascal
1
2
3
4
5
6
7
8
9
10
uses
  System;
 
begin
  var birth := DateTime.Parse(ReadString('Дата рождения: '));
  var now := DateTime.Today;
  var age := now.Year - birth.Year;
  if (birth > now.AddYears(-age)) then dec(age); 
  writeln(age);  
end.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@oleynik96 0 / 0 / 0 Регистрация: 16.02.2015 Сообщений: 2

	Расчет возраста человека 10.01.2016, 11:39. Показов 7381. Ответов 6 Метки нет (Все метки) Дана дата рождения человека. Нужно вывести на экран возраст человека (точнее, количество полных лет) 0

@JuriiMW 5096 / 2662 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	11.01.2016, 09:11
	Freelancer2017, для проверки: date: 1.1.2016 1 0

@Freelancer2017 Заблокирован
	11.01.2016, 10:36
	JuriiMW, в большинстве случаев все нормально считает, а с этим не знаю что можно сделать, минимальное значение DateTime - 01.01.0001 0

@JuriiMW 5096 / 2662 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	11.01.2016, 10:40
	Freelancer2017, а для даты: 12.12.2000 выдаёт 16 !? 0

Расчет возраста человека

Решение