Get Start + End Date of a given Week number

[Nick Chan]

Hello, How do I get the start date, and end date of a given week
example, Week 20, year 2004.

 

[Doug Bell]

Hi Nick,
Just a thought, you could try something like:

Dim datDatum as date
Dim intWkNo as integer
datDatum = DateSerial(Year(Now), 1, 1)

Do while Day(datDatum)<>"Mon"

DateAdd(DateInterval.Day,1,datDatum)

Loop

StartDate=DateAdd(DateInterval.WeekOfYear, intWkNo, datDatum)



Doug