Finding a date
On Mon, 19 Oct 2009 18:46:10 +0100, "camlad" wrote:
So, how can I find the 3rd Wednesday in April
Addressing this part of your question, the general formula:
======================
Function NthWD(d As Date, DOW As Long, WeekNum As Long) As Date
'DOW = Day Of Week
'Weeknum assumes week starts on DOW
NthWD = d - Day(d) + 1 + 7 * WeekNum - Weekday(d - Day(d) + 8 - DOW)
End Function
====================
--ron
|