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

Аргументы: Дата рождения и текущая дата
Назначение: Расчитывает разницу в годах между двумя датами (использовать для расчета возраста)
Возвращает: Количество лет 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