'Demo 1: Hämta ålder på person född 2/11/1954
'Dim objDate As New System.DateTime(1954, 2, 11)
'Debug.WriteLine(GetAge(objDate))

'Demo 1: Hämta samma persons ålder 10 år framåt från nu
'Dim objDate As New System.DateTime(1954, 2, 11)
'Dim objdate2 As System.DateTime
'objdate2 = Now.AddYears(10)
'Debug.WriteLine(GetAge(objDate, objdate2))