' Evaluate the age of a person, given his/her birth date' Example: Debug.WriteLine(Age(#9/28/1980#)) ' => 22Function Age(ByVal birthDate As Date, Optional ByVal currentDate As Date = #1/1/ _ 1900#, Optional ByVal exactAge As Boolean = True) As Integer If currentDate = #1/1/1900# Then currentDate = Date.Today Age = currentDate.Year - birthDate.Year If exactAge Then ' subtract one if this year's birthday hasn't occurred yet If New Date(currentDate.Year, birthDate.Month, _ birthDate.Day) > currentDate Then Age -= 1 End If End IfEnd Function


What is Metadata?
What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular