Need code that will check if a date is the 1st Friday of the month. I intend to put this as part of a string of multiple IIf's in a Text Box on a report. Currently running Access 2002.

Appreciate all your suggestions!

Thanks

Create a module and insert the following function:

'***start code
Public Function FirstFriday(SelectDate As Date) As Integer

If WeekDay(SelectDate) = vbFriday And Day(SelectDate) < 7 Then
FirstFriday = True
Else
FirstFriday = False
End If

End Function
'**end code


Call the function (IIF example):

IIf(FirstFriday(DATEENTERED) = True, "Yes it is the First Friday of the month", "No it isn't")

Hope it helps.