Home › 2_2002-2004 › A function to compute for the first day of a given week in a year
Advertisement
2_2002-2004 OLE/ COM/ DCOM/ Active-X #129344

A function to compute for the first day of a given week in a year

Raymond Velasquez
★★★★★
4.8 · Downloads: 2,341

This function computes for the date of the first day of a given week of a given year.

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source 
Function getFirstDayOfWorkWeek( _
		WorkWeek, _
		intYear, _
		firstdayofweek _
		 )
	Dim intJan1
	Dim dtFirstWorkWeekDayOfYear
	Dim dtFirstDayOfWorkWeek
	Const vbJanuary = 1
	if (WorkWeek > 52) OR (WorkWeek < 1) then
		getFirstDayOfWorkWeek = ""
		exit Function
	end if
	if intYear<=0 then
		getFirstDayOfWorkWeek = ""
		exit Function
	end if
	
	intJan1 = WeekDay( _
			"01/01/" & intYear, _
			firstdayofweek _
		 )
	dtFirstWorkWeekDayOfYear = _
	 DateAdd( "d", _
	 (-1 * intJan1) + 1, _
	 "01/01/" & intYear _
		 )
				
	dtFirstDayOfWorkWeek = _
		DateAdd( "d", _
			 (WorkWeek-1) * 7, _
			dtFirstWorkWeekDayOfYear _
			)
					
 getFirstDayOfWorkWeek = dtFirstDayOfWorkWeek
End Function
Original Comments (3)
Recovered from Wayback Machine