LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 19 апреля 2024
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Вычисление возр...
 Вычисление возраста
 
 28.03.2008 10:03:08
lerychv
1 сообщения


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

Подскажите, как вычислить возраст (полных лет), если есть дата рождения в формате dd mm yy?

Спасибо.
 28.03.2008 14:57:10
Admin1
731 сообщения
1-ый


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

Dim y As Long
y = DateDiff("yyyy", Now, "01.05.2000")
 28.05.2008 23:18:35
vitabios
21 сообщения


Re: Вычисление возраста
можно и так

Функция определения возраста

Аргументы: Дата рождения и текущая дата
Назначение: Расчитывает разницу в годах между двумя датами (использовать для расчета возраста)
Возвращает: Количество лет Integer

Function Age(Bdate, DateToday) As Integer
If DateToday < Bdate Then Age = 0:Exit Function
If Month(DateToday) < Month(Bdate) Or (Month(DateToday) = Month(Bdate) And Day(DateToday) < Day(Bdate)) Then
Age = Year(DateToday) - Year(Bdate) - 1
Else
Age = Year(DateToday) - Year(Bdate)
End If
End Function


создается модуль а в форме или отчете в поле вставляется фукнция
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Вычисление возр...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke