vb code to calculate age

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 <= dob Then Return 0

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