‘ Evaluate the number of business days between two dates’ Example: Debug.WriteLine(BusinessDateDiff(#4/9/2003#, #4/25/2003#)) ‘ => 12Function BusinessDateDiff(ByVal startDate As Date, ByVal endDate As Date, _ Optional ByVal saturdayIsHoliday As Boolean
‘ Evaluate the Easter date for a given year’ Example: MessageBox.Show(EasterDate(2003).ToLongDateString())Function EasterDate(ByVal year As Integer) As DateTime Dim g, c, h, i, j, l, month, day As Integer g =
‘ Add or subtract a number of business days from a date’ Example: Debug.WriteLine(BusinessDateAdd(#4/9/2003#, 5)) ‘ => 4/16/2003Function BusinessDateAdd(ByVal startDate As Date, ByVal days As Integer, _ Optional ByVal saturdayIsHoliday
‘ 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