Dim d As Date = myDataTable.Rows(0)("Date")
        Dim years As Integer = Now.Year - d.Year

        If years > 0 Then
            years -= IIf(Now.Month < d.Month, 1, 0)
        End If

        Dim days As Integer = (Now - d).TotalDays

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov