Public Function Age(ДатаРождения As Date, ТекущаяДата As Date) As Integer
    
'исходная функция
    
    Age = Int((Val(Format(ТекущаяДата, "yyyymmdd", 2)) - Val(Format(ДатаРождения, "yyyymmdd", 2))) / 10000)
End Function

Public Function Age1(ДатаРождения As Date, ТекущаяДата As Date) As Integer
    
'переход на целочисленную арифметику
    
    Age1 = (CLng(Format(ТекущаяДата, "yyyymmdd")) - CLng(Format(ДатаРождения, "yyyymmdd"))) \ 10000
End Function

Public Function Age2(ДатаРождения As Date, ТекущаяДата As Date) As Integer
    
'сравнение строк вместо перевода из строк в числа (аналог моей функции в Excel)
    
    Age2 = Year(ТекущаяДата) - Year(ДатаРождения) + (Format(ДатаРождения, "mmdd") > Format(ТекущаяДата, "mmdd"))
End Function

Public Function Age3(ДатаРождения As Date, ТекущаяДата As Date) As Integer
    
'работа только с числами, сравнение дней только при равенстве месяцев
    
    Age3 = Year(ТекущаяДата) - Year(ДатаРождения)
    Select Case Month(ДатаРождения) - Month(ТекущаяДата)
    Case Is < 0
    Case Is > 0
        Age3 = Age3 - 1
    Case Else
        If Day(ДатаРождения) > Day(ТекущаяДата) Then Age3 = Age3 - 1
    End Select
End Function

Public Function Age4(ДатаРождения As Date, ТекущаяДата As Date) As Integer
    
'вычисляемый GoTo вместо Select Case
    
    Age4 = Year(ТекущаяДата) - Year(ДатаРождения)
    On Sgn(Month(ДатаРождения) - Month(ТекущаяДата)) + 2 GoTo 1, 2, 3
2   If Day(ДатаРождения) > Day(ТекущаяДата) Then Age4 = Age4 - 1
1   Exit Function
3   Age4 = Age4 - 1
End Function

Sub test()
Dim d1 As Date, d2 As Date, t!, i&
d1 = #7/1/1987#

'Проверка, что функции дают одинаковый результат в любой день года
    
    For d2 = #1/1/2012# To #12/31/2012#
        t = Age(d1, d2)
        If t <> Age1(d1, d2) Or t <> Age2(d1, d2) Or t <> Age3(d1, d2) Or t <> Age4(d1, d2) Then Stop
    Next

'Измерение времени расчета

t = Timer
For i = 1 To 1000
    For d2 = #1/1/2012# To #12/31/2012#
        Age4 d1, d2
    Next
Next
Debug.Print Timer - t
End Sub