По дате рождения человека определить его возраст

@Boxer1nLane · Регистрация: 16.02.2014

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

Подскажите пожалуйста как в MS access в таблице сделать так чтобы при заполнении поля "год рождения" высчитывался возраст человека в поле "возраст".?
и как поставить пароль на редактирование и отдельно на добавление данных?

@Серж_87 · 16.02.2014, 19:58

Rube, Смотрю вычисляете дни и на 365 делите. Высокосный год не учитываете?

@Вячеслав Я · 16.02.2014, 20:20

Сообщение от Вячеслав Я

вам возраст нужен в каком виде: полных лет или конкретно лет, месяцев и дней?

Все таки я предоставлю свой вариант полного возраста с месяцами и днями. Тут уж точно все точно. Расчет может быть не в одну строку, но есть результат.

mobile · 16.02.2014, 20:26

Если "полных лет", то нало сравнивать еще месяцы и дни. Выражение datediff("yyyy", Datebirth, Date()) может дать ошибку в один год. Например, человек родился 31 января 2013 года. Тогда datediff("yyyy", Datebirth, Date()) сегодня даст ему возраст 1 год. А в полных годах ему пока еще 0 лет

Visual Basic
1
datediff("yyyy", Datebirth, Date())+(format(Datebirth,"mmdd")>format(Date(),"mmdd"))

@Вячеслав Я · 16.02.2014, 20:32

Уважаемый mobile, так у меня правильно считает, можно проверить, причем показывает и месяцы и дни.

Добавлено через 2 минуты
Boxer1nLane,

@Rube · 16.02.2014, 20:38

Вот формула для расчета полных лет.

Visual Basic
1
2
3
4
5
6
BirthDate = "16.02.2013"
years = DateDiff("yyyy", BirthDate, Date)
If Month(Now) < Month(BirthDate) Or (Month(Now) = Month(BirthDate) And Day(Now) < Day(BirthDate)) Then
    years = years - 1
End If
MsgBox ("Ваш возраст: " & years)

@Boxer1nLane · 17.02.2014, 08:15 **[ТС]**

Добавлено через 1 минуту
а как же быть с администрированием ? кто-нибудь знает?

@Rube · 17.02.2014, 08:23

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

а как же быть с администрированием

Лучше новую тему создать, там и поговорим.

mobile · 17.02.2014, 08:57

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

Вот формула для расчета полных лет.

А остальные, предложенные здесь совсем не годятся? Спешу вас успокоить, ваша "формула" дает тоже самое, что моя, но более длинная и дольше выполняется. А варианту Вячеслав Я проигрывает в подробностях (как и моя).

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

а как же быть с администрированием ? кто-нибудь знает?

Вариантов много. Есть системный, с использованием mdw-файла, но для него требуется чтобы БД была создана в версии не выше 2003. Есть множество рукописных, предложенных в том числе и на нашем форуме. Объясните полнее задачу. Дъявол, ведь как всегда в деталях.

Добавлено через 1 минуту

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

Лучше новую тему создать, там и поговорим.

Это правильно.

@Rube · 17.02.2014, 09:06

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

А остальные, предложенные здесь совсем не годятся?

Очень даже годятся, хотя это ТСа надо было спросить. Я лишь привел еще один вариант, пусть выбирает.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Boxer1nLane 0 / 0 / 0 Регистрация: 16.02.2014 Сообщений: 18

	По дате рождения человека определить его возраст 16.02.2014, 15:53. Показов 20615. Ответов 28 Метки нет (Все метки) Подскажите пожалуйста как в MS access в таблице сделать так чтобы при заполнении поля "год рождения" высчитывался возраст человека в поле "возраст".? и как поставить пароль на редактирование и отдельно на добавление данных? 0

@Серж_87 1303 / 509 / 63 Регистрация: 09.08.2012 Сообщений: 2,056
	16.02.2014, 19:58
	Rube, Смотрю вычисляете дни и на 365 делите. Высокосный год не учитываете? 0

@Вячеслав Я 2841 / 1381 / 217 Регистрация: 13.05.2011 Сообщений: 4,224
	16.02.2014, 20:32
	Уважаемый mobile, так у меня правильно считает, можно проверить, причем показывает и месяцы и дни. Добавлено через 2 минуты Boxer1nLane, 0

@Boxer1nLane 0 / 0 / 0 Регистрация: 16.02.2014 Сообщений: 18
	17.02.2014, 08:15 [ТС]
	Добавлено через 1 минуту а как же быть с администрированием ? кто-нибудь знает? 0