Вычисления в Access - MS Access - Ответ 955558

Public Sub SubAge(gdtBeginDate As Date, gdtEndDate As Date)
'Використано алгоритм Сергея Терени з сайту MS Access - Кирпичики [url]http://msa.polarcom.ru/downloads.htm[/url]
'АЛГОРИТМ РЕШЕНИЯ ЧАСТИЧНО БЫЛ ВЗЯТ С САЙТА БИБЛИОТЕКИ АЛГОРИТМОВ
Dim dm(12) As Integer, cf As Integer
'описываем массив количества дней в месяцах
dm(1) = 31
dm(2) = 28
dm(3) = 31
dm(4) = 30
dm(5) = 31
dm(6) = 30
dm(7) = 31
dm(8) = 31
dm(9) = 30
dm(10) = 31
dm(11) = 30
dm(12) = 31
If LeapYear(DatePart("yyyy", gdtEndDate)) Then
    dm(2) = 29  'если год високосный, то число дней в месяце февраль -29
        Else
    dm(2) = 28  'если год невисокосный, то число дней в месяце февраль -28
End If
' кількість днів
cf = 0
d = DatePart("d", gdtEndDate) - DatePart("d", gdtBeginDate)
If d < 0 Then
    d = d + dm(DatePart("m", gdtBeginDate))
    cf = 1
Else
    d = DatePart("d", gdtEndDate) - DatePart("d", gdtBeginDate)
End If
If d >= dm(DatePart("m", gdtEndDate)) Then
    d = d - dm(DatePart("m", gdtEndDate))
    cf = 0
End If
'кількість місяців
m = DatePart("m", gdtEndDate) - DatePart("m", gdtBeginDate) - cf
cf = 0
If m < 0 Then
    m = m + 12
    cf = 1
End If
'кількість років
If m = 12 Then
    cf = -1
    m = 0
End If
    
Y = DatePart("yyyy", gdtEndDate) - DatePart("yyyy", gdtBeginDate) - cf
 
VarD = d 'дней
VarM = m 'месяцев
VarY = Y 'лет
End Sub

Function LeapYear(YYYY As Integer) As Integer
  LeapYear = YYYY Mod 4 = 0 And (YYYY Mod 100 <> 0 Or YYYY Mod 400 = 0)
End Function