主题：求助：周岁的计算公式

用看是不是过了生日算的。算的有点麻烦
Dim d1 as Date = #3/17/2002#
Dim d2 as Date = #1/1/2008#
Dim Age As Integer = d2.Year - d1.Year    '虚岁
Dim BirthDay As Date    '生日
Try
    BirthDay = New Date(d2.Year,d1.Month,d1.Day)
Catch
    BirthDay = New Date(d2.Year,2,28)
End Try
If BirthDay < d2 Then      '当年是否过生日
    Age = Age - 1
End If
Output.Show(Age)