Get Fridays Date From Combo

[DMT Dave]

Hi Guy's hope everyone is staying safe,



What is the method of getting Fridays Date for each week selected from a combo box ?

ie: if my Combo Box Value is 16-Nov-2020 then what is the method for retrieving 20-Nov-2020

Same for each week selected when the combo box has changed ?

Thank you

[ranman256]

usage: getFriday([datefld])

Public Function getFriday(pvDate)
Dim vFri
Dim i As Integer
i = Format(pvDate, "w")
vFri = DateAdd("d", -(i - 6), pvDate)
getFriday = vFri
End Function

[Bob Fitz]

The attached db (created by Pat Hartman) demonstrates many useful date functions.
The tab labelled "First Weekday Function" may be of particular interest to you.

[Welshgasman]

Nothing attached Bob?

[Bob Fitz]

Nothing attached Bob?

You're quite right. That was a rather silly mistake but hopefully it' attached to this post.
Thanks for pointing out the error

[DMT Dave]

Hi ranman256, thank you, where have i gone wrong here ?

[Welshgasman]

Functions normally return a value?
So something more along the lines of

Me.NextFriday = GetFriday(Me.txtRemovaldate)

[Bob Fitz]

Hi ranman256, thank you, where have i gone wrong here ?

Try:

msgbox getFriday("04/11/2020")

[Micron]

If you enclose function parameters in parentheses there must be a returned value AND it must be assigned.

Result = Msgbox("parameters", here) or
Msgbox "parameters", here

depending on which you need. You must also use () if you use the Call statement:

Call (myfunction) or use

myfunction

[DMT Dave]

Thank you guys much appreciated, will adjust tomorrow

[CJ_London]

you can use the weekday function to simplify your code if you wanted


getFriday = DateAdd("d", -(weekday(pvdate) - 6), pvDate)

[DMT Dave]

Thank you all for your input, all working great !