VB programming to draw one day in the week of the date of last Friday

CodePudding user response:

 Function GetFriDay (ByVal bDate As String) As String 
GetFriDay=DateAdd (" d ", 5 - Weekday (bDate, vbMonday), bDate) 
End the Function