' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Class MainClass Public Shared Sub Main(ByVal args As String()) Dim dt As DateTime = New DateTime(1964, 12, 8) Dim now As DateTime = DateTime.Now Dim age As Integer = now.Year - dt.Year If now.DayOfYear < dt.DayOfYear Then age = age - 1 End If Console.WriteLine(age) End Sub End Class