Domino Code Fragment

Code Name*
Date Routines in LotusScript		Date*
06/28/2025		Source (or email address if you prefer)*
[email protected]
IP address:.172.69.59.62
Description*
This routine returns the first date a specificed weekday falls in the year when passed a year and weekday.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:

Function firstWeekday(vyear As Integer,vweekday As Integer) As Variant

Dim jan1 As Integer

jan1 = Weekday(Datenumber(vyear,1,1))
If vweekday >= jan1 Then
firstWeekday = Datenumber(vyear,1,1) + vweekday - jan1
Else
firstWeekday = Datenumber(vyear,1,1) + 7- (jan1 - vweekday)
End If

End Function