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
‘ Check whether a specified file is a .NET assemblyFunction IsAssembly(ByVal filename As String) As Boolean Try Dim asm As [Assembly] = [Assembly].LoadFrom(filename) ‘ if no exception is thrown, this
‘ 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
‘ 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