Calculate Friday dates only

David · Feb 14, 2007

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] · Feb 14, 2007

David said:
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>

Evertjan. · Feb 14, 2007

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)

Assistance with changing column header Dates .................	1	Feb 13, 2007
Excel and Ruby	16	Oct 13, 2010
Zoom Text Only	0	Jun 15, 2011
CFP: International Symposium on Memory Management 2010	0	Oct 12, 2009
MAINFRAME Training with IBM Certification and JOB GUARANTEE:	0	Feb 21, 2008
Call for Papers: International Symposium on Memory Management 2010	0	Oct 12, 2009
OOPS 2008 Call for Papers	0	Aug 16, 2007
Popup Script Works but causes errors on some pages	0	Jun 4, 2008

Calculate Friday dates only

David

Bob Barrows [MVP]

Evertjan.

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads