|
Home > Archive > IIS ASP > February 2007 > Calculate Friday dates only
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 |
Calculate Friday dates only
|
|
|
| Hi,
I need to display 3 fields with future dates (Fridays only) as table
column headers.
i.e. 16th Feb | 23rd Feb | 2nd March.
As each week passes, i.e. from the Saturday, the dates should move
accross 1, i.e. column 1 will update to 23rd Feb, Column 2 to 2nd
March and Column 3 to 9th March.
23rd Feb | 2nd March. | 9th March
I need this to work in IE & Firefox specifically.
Please can you help me work this out ?
Thanks
David
| |
| Bob Barrows [MVP] 2007-02-14, 1:20 pm |
| David wrote:
> Hi,
>
> I need to display 3 fields with future dates (Fridays only) as table
> column headers.
> i.e. 16th Feb | 23rd Feb | 2nd March.
>
> As each week passes, i.e. from the Saturday, the dates should move
> accross 1, i.e. column 1 will update to 23rd Feb, Column 2 to 2nd
> March and Column 3 to 9th March.
>
> 23rd Feb | 2nd March. | 9th March
>
> I need this to work in IE & Firefox specifically.
>
> Please can you help me work this out ?
>
It shouldn't be too hard. Assuming that if today were Friday, you would want
today's date in column one:
<%
dim today, nextfriday
today=date
nextfriday=today
do until weekday(nextfriday) = vbFriday
nextfriday = nextfriday + 1
loop
%>
<html>
<head>
<style>
th {background-color:gray;color:white}
</style>
</head>
<body>
<table>
<tr>
<th><%=nextfriday%></th>
<th><%=nextfriday + 7%></th>
<th><%=nextfriday + 14%></th>
</tr>
</table>
</body></html>
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"
| |
| Evertjan. 2007-02-14, 1:20 pm |
| Bob Barrows [MVP] wrote on 14 feb 2007 in
microsoft.public.inetserver.asp.general:
> <%
> dim today, nextfriday
> today=date
> nextfriday=today
> do until weekday(nextfriday) = vbFriday
> nextfriday = nextfriday + 1
> loop
> %>
Look, no loop:
today = date
temp = vbFriday - weekday(today)
if temp<0 then temp = temp + 7
nextfriday = dateadd("d", temp, today)
nextnextfriday = dateadd("ww", 1, nextfriday)
nextnextnextfriday = dateadd("ww", 2, nextfriday)
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)
|
|
|
|
|