need to determine every other wednesday in current

# Thread: need to determine every other wednesday in current

1. Member
Join Date
Dec 1969
Posts
67

## need to determine every other wednesday in current

Can assista point me in the right direction? <BR><BR>Thanks in advance,<BR><BR>qwest

2. Senior Member
Join Date
Dec 1969
Posts
96,118

## in current what???

current year?<BR><BR>Start with first Wednesday of year?<BR><BR>&#060;%<BR>first = DateSerial( Year(Date()), 1, 1 ) &#039; jan 1st<BR>wkday1 = Weekday( first )<BR>If wkday1 &#060;= 4 Then <BR> curWed = first + (4 - wkday1) &#039; move forward to Wednesday in same week<BR>Else<BR> curWed = first + 7 + (4 - wkday1) &#039; fwd to Wed in next week<BR>End If<BR><BR>Do Until Year(curWed) &#060;&#062; Year(Date())<BR> Response.Write FormatDateTime( curWed, vbLongDate ) & "&#060;br/&#062;"<BR> curWed = curWed + 14 &#039; two weeks<BR>Loop<BR>%&#062;

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•