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(daystoadd)

lastdate = firstdate.AddDays(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*****@eclinic.com.sg> wrote in message
news:Oe**************@TK2MSFTNGP10.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