Domino Code Fragment

Code Name*
Date Routines in LotusScript		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.118.200.136
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