用代码:
Dim dt1 As Date = #5/21/2012#Dim dt2 As Date = #5/20/2013#Dim yas As Integer = dt2.year - dt1.year