' 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

Exploring the Latest Tech Trends Impacting the Real Estate Industry
The real estate industry is changing thanks to the newest technological advancements. These new developments — from blockchain and AI to virtual reality and 3D printing — are poised to change how we buy and sell homes. Real estate brokers, buyers, sellers, wholesale real estate professionals, fix and flippers, and beyond may