IIS ASP - ASP - first and last day of each week in a year

This is Interesting: Free IT Magazines  
Home > Archive > IIS ASP > January 2008 > ASP - first and last day of each week in a year





You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author ASP - first and last day of each week in a year
Charlotte

2008-01-04, 1:37 am


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

Jon Paal [MSMD]

2008-01-04, 1:37 am

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


Jon Paal [MSMD]

2008-01-04, 1:37 am

try again..

http://tinyurl.com/yv538d

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



Evertjan.

2008-01-04, 7:37 am

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)
Sponsored Links






Free braindumps | Software forum | Database administration forum

Copyright 2003 - 2008 webservertalk.com