Access VBA Function ByReference
' Argument strWeekdayName can be changed inside the function.
Public Function IsToday(ByRef strWeekdayName As String) As Boolean
' If the weekday passed in is equal to today's weekday name, return True.
If strWeekdayName = WeekdayName(Weekday(Date)) Then
' Explicit return value
IsToday = True
Else
' If it does not equal to today's weekday name, return today's weekday name by assigning
' today's weekday name to the argument.
strWeekdayName = WeekdayName(Weekday(Date))
' Explicit return value
IsToday = False
End If
End Function