Peter,
Do you want to start with the first or second Friday of the year?
Here is a routine that will print every other Friday starting with the first
Friday after the start date, going until the last Friday before the end
date.
Private Shared Sub PrintEveryOtherWeek(ByVal startDate As DateTime,
ByVal endDate As DateTime)
Dim friday As DateTime = startDate.AddDays(DayOfWeek.Friday -
startDate.DayOfWeek)
Do Until friday > endDate
Debug.WriteLine(friday, "friday")
friday = friday.AddDays(14)
Loop
End Sub
Public Shared Sub Main()
PrintEveryOtherWeek(Today, Today.AddYears(1))
End Sub
Just replace the Debug.WriteLine with the logic that you need. You can
change the range by setting the start date & end date as appropriate, for
example:
PrintEveryOtherWeek(New DateTime(2004, 1, 1), New DateTime(2005, 1,
1))
Note you need to decide if the end date needs to be inclusive or exclusive.
I made it exclusive in the above example.
Hope this helps
Jay
"Peter" <pe***@mclinn.com> wrote in message
news:dc**************************@posting.google.c om...
Has anyone written any code to find the date of every other Friday of the
year? Is there an easy way of doing this?