Answers for "Access VBA Function ByReference"

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