Hi,

is it possible to determine the first and the last day of a week (with
classic ASP)

nu = "06/01/2008"
week = (DatePart("ww",nu))

firstday = dateadd("d",(-datepart("w",date())),nu)
lastday = dateadd("d",(7-datepart("w",date())),nu)

response.write week
response.write "<br>"
response.Write firstday
response.write "<br>"
response.Write lastday

'week' must give me the number of the week for the date in 'nu'
'firstday' must give me the first date of that week
'lastday' must give me the last date of that week

it won't work

is there a way to do this?

thanks in advance

this has some example code for vbscript and first day of week appears on pg 317

try again..

http://tinyurl.com/yv538d

"Jon Paal [MSMD]" <Jon nospam Paal [at] everywhere dot com> wrote in message news:13nrfpqnee25v0b [at] corp.supernews.com...
> this has some example code for vbscript and first day of week appears on pg 317
>

Charlotte wrote on 04 jan 2008 in
microsoft.public.inetserver.asp.general:

>
> Hi,
>
> is it possible to determine the first and the last day of a week (with
> classic ASP)
>
> nu = "06/01/2008"

This is dangerous, did you mean the first of june, nee toch?

Use:

nu = #2008/01/06#

So now nu is a date object and you are sure to have 'overmorgen'.

> week = (DatePart("ww",nu))

week = Weekday(nu, 1)

[1 means sunday is the first day of the week,
so 1 = sunday, 7 is saturday]

> firstday = dateadd("d",(-datepart("w",date())),nu)

firstday = dateadd("d", 1 - week, nu)

> lastday = dateadd("d",(7-datepart("w",date())),nu)

lastday = firstday + 6

> response.write week
> response.write "<br>"
> response.Write firstday
> response.write "<br>"
> response.Write lastday
>
> 'week' must give me the number of the week for the date in 'nu'
> 'firstday' must give me the first date of that week
> 'lastday' must give me the last date of that week
>
> it won't work

Never say that in a NG like this,
show error texts and what you did to debug.

> is there a way to do this?
>
> thanks in advance

so use this:

nu = #2008/01/09#
week = Weekday(nu, 1)
firstday = dateadd("d", 1 - week, nu)
lastday = firstday + 6


Succes,

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

Charlotte,

A lot of information how to work with dates is to be found on the following
website.
http://www.chrispearson.org/pages/programming/vbscript/datew ork/misc/weekday.asp

Good luck
Tim

"Charlotte" <charlotte.deleeuw [at] SPAMtelenet.be> schreef in bericht
news:SGffj.10800$Ey7.1350909 [at] phobos.telenet-ops.be...
>
> Hi,
>
> is it possible to determine the first and the last day of a week (with
> classic ASP)
>
> nu = "06/01/2008"
> week = (DatePart("ww",nu))
>
> firstday = dateadd("d",(-datepart("w",date())),nu)
> lastday = dateadd("d",(7-datepart("w",date())),nu)
>
> response.write week
> response.write "<br>"
> response.Write firstday
> response.write "<br>"
> response.Write lastday
>
> 'week' must give me the number of the week for the date in 'nu'
> 'firstday' must give me the first date of that week
> 'lastday' must give me the last date of that week
>
> it won't work
>
> is there a way to do this?
>
> thanks in advance
>