Calculate Friday week ending dates

Calculate Friday week ending dates in LotusScript

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%)
This was first published in May 2002

Dig deeper on Domino Resources - Part 2



Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...