Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
First Friday Function 1
- Thread starter Trudye
- Start date
-
1
- #2
Something like this ?
Public Function FirstFriday(myDate As Date) As Date
Dim d As Date, w As Integer
d = DateSerial(Year(myDate), Month(myDate), 1)
w = Weekday(d, 6)
FirstFriday = d + IIf(w, 8 - w, 0)
End Function
Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886
Public Function FirstFriday(myDate As Date) As Date
Dim d As Date, w As Integer
d = DateSerial(Year(myDate), Month(myDate), 1)
w = Weekday(d, 6)
FirstFriday = d + IIf(w, 8 - w, 0)
End Function
Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886
- Thread starter
- #3
- Status
Similar threads
- Locked
- Question
- Locked
- Question