Date Return if selected a weeknumber from a year, eg, Wk 20. Help..Anyone??

[Vanessa]

Does anyone know whether when I select a weeknumber of a certain year, eg.
2004, the date from first day to the last day of the week will be known.

Regards
Vanessa

[Vicky]

use this

Dim d As Date

Dim weeknum As Integer

Dim firstdate As Date

Dim lastdate As Date

Dim daystoadd As Integer

weeknum = InputBox("Enter Week Number")

d = DateSerial(2004 , 1, 1)

daystoadd = (7 * (weeknum - 1)) - (7 - Weekday(d, FirstDayOfWeek. Monday))

firstdate = d.AddDays(dayst oadd)

lastdate = firstdate.AddDa ys(6)

This only will not wrok proper for first and last week, but u can modify and
handle exception of 1 and last week and make it correct

Vicky

"Vanessa" <va*****@eclini c.com.sg> wrote in message
news:Oe******** ******@TK2MSFTN GP10.phx.gbl...

Does anyone know whether when I select a weeknumber of a certain year, eg.
2004, the date from first day to the last day of the week will be known.

Regards
Vanessa