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