By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Elliot Levine in 8-Dec-2000 at submitted this as a formula. I needed it in LotusScript form and came up with this.
' Calculate Friday week ending date for given date. Dim dTime As New NotesDateTime (DateWorked) Dim adjust_days As Integer Dim this_weekday As Integer Dim weekday_difference As Integer Const FRIDAY_WEEKDAY = 6 this_weekday% = Weekday (dTime.LSLocalTime) weekday_difference% = FRIDAY_WEEKDAY - this_weekday% If (weekday_difference% = -1) Then ' Saturday shifts into next week. adjust_days% = FRIDAY_WEEKDAY Else ' Adjust other days one week backwards, less their distance from Friday. adjust_days% = - (weekday_difference%) End If Call dTime.AdjustDay (adjust_days%)