Calculate a date knowing the week number and year

[Guest]

Does anyone know how to calculate a date based off of a year and the week #
(i.e. year 2006 and week 31 would equal 7/31/06 which is the first day of
week 31) ?

Thanks,

Sarah

 

[Guest]

Hi,
check these two:
http://www.utteraccess.com/forums/s...e=&Zu=&Zd=l&Zn=&Zt=2&Zs=a&Zy=#Post1072066&Zp=
http://www.utteraccess.com/forums/s...re=&Zu=&Zd=l&Zn=&Zt=2&Zs=a&Zy=#Post445883&Zp=
HTH
Good luck

 

[Guest]

You have to have at least a year that you want to use. It couldn't be done
with a week number alone.
This will return the Monday of the week

lngWeeks = 31
lngYear = 2006
dtmBegin = DateValue(lngYear, 1, 1)
dtmBegin = DateAdd("ww", lngWeeks - 1 , dtmBegin)
dtmFinal = DateAdd("d", vbMonday - DatePart("w", dtmBegin), dtmBegin)

 

[Guest]

Thanks the first one worked great. Exactly what I was looking for.

Thanks again and have a great day!

Sarah

 

[Guest]

Datevalue only takes one arguement.

You have to have at least a year that you want to use. It couldn't be done
with a week number alone.
This will return the Monday of the week

lngWeeks = 31
lngYear = 2006
dtmBegin = DateValue(lngYear, 1, 1)
dtmBegin = DateAdd("ww", lngWeeks - 1 , dtmBegin)
dtmFinal = DateAdd("d", vbMonday - DatePart("w", dtmBegin), dtmBegin)

 

[John Vinson]

Datevalue only takes one arguement.

I'm guessing that Klatuu meant to type DateSerial.

John W. Vinson[MVP]

 

[Guest]

Thanks for the correction. That worked.

I'm guessing that Klatuu meant to type DateSerial.

John W. Vinson[MVP]

 

[Guest]

Thanks it worked with the correction John gave me.