主题：如何计算两个时间点间的年龄（包括岁、月、日）

Dim d1,d2 As Date

Dim y,m,d As Integer

d1= #9/8/2011#

d2=#9/7/2012#

y=DateDiff("yyyy",d1,d2)

m=DateDiff("m", d1,d2)

d=DateDiff("d", d1,d2)

If d1.AddYears(y) >d2 Then

    y =y -1

End If

If d1.Addmonths(m) >d2 Then

    If y =0 Then

        m=m-1

    End If

End If

m = m-12*y

If d1.Add Days(d) >d2 Then

    d=d-1

End If

d=d-DateDiff("d",d1, d1.addmonths(y*12+m))+1

Dim s As String

s = iif(y =0, "",y & "年") & iif(m =0,"",m & "月")

s+= iif(d =0,"",d & "日")

Output.Show(s)→11月30日