‘ copy or append text to the clipboardSub ClipboardSetText(ByVal text As String) ClipboardSetText(text, False)End SubSub ClipboardSetText(ByVal text As String, ByVal append As Boolean) If append Then text = ClipboardGetText() &
‘ A reusable routine that displays error information’ Note: requires Imports System.ReflectionSub DisplayExceptionInfo(ByVal e As Exception) ‘ Display the error message. Console.WriteLine(e.Message) Dim st As New StackTrace(e, True) Dim i
‘ If the first argument is Nothing or a null string return the 2nd argumentFunction IfNull(ByVal value As String, ByVal defaultValue As Object) As String If Not value Is Nothing
Shared Function _ LoadLibrary(ByVal path As String) As IntegerEnd Function Shared Function _ GetProcAddress(ByVal hModule As Integer, ByVal procName As String) As _ IntegerEnd Function Shared Sub FreeLibrary _ (ByVal
‘ 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
‘ 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 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 =
‘ 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
This little bit of code is great for doing stuff like “COPYRIGHT 1998?(present year).” It saves Webmasters from having to cull through their source code looking for the year (every