vb code to calculate age

Question

I need to change a vb net 2010 application that is connecting to sql server 2012 I would like to know how to write vb net code that will take a datetime field called date of birth and calculate the age a person currently is Would you show me the vbnet code that will accomplish this goal?

Vulpes · Answer

This should do it: Imports System Module Program Sub Main Dim dob As DateTime = new DateTime(1990 10 1) '1 October 1990 Dim ageOn As DateTime = DateTime.Today '1 September 2014 Dim age As Integer = GetAge(dob ageOn) Console.WriteLine(Age is  & age) Console.ReadKey End Sub Function GetAge (ByVal dob As DateTime ByVal ageOn As DateTime) As Integer If ageOn Dim date1 As Integer = dob.Year * 372 + (dob.Month - 1) * 31 + dob.Day - 1 Dim date2 As Integer = ageOn.Year * 372 + (ageOn.Month - 1) * 31 + ageOn.Day - 1 Return (date2 - date1) \ 372 End Function End Module The output is: Age is 23