Ever wanted to know the date from given criteria, e.g the 1st Sunday in December 2003.
Try it here
Click to see versions in vb java/swing java/applet
There are a number of ways to get the initial data - arguments, hard-coded, or listboxes (as above)
An example of using listboxes can be seen by viewing the source of this document.
The following code (hard-coded) will output the date for the 1st Sunday
in January 2003.
It could also be written using arguments e.g. wk = args(0), dy = args(1) etc
wk = 1 '1 = 1st, 2 = 2nd, 3 = 3rd, 4 = 4th, 5 = Last
dy = 1 '1 = sunday, 2 = monday ... 7 = saturday
mth = 1 '1 = january, 2 = february .... 12 = december
yr = 2003 'year
If wk = 5 Then
mth = mth + 1
wk = 0
firstOfMonth = DateSerial(yr, mth, 1)
dateRequired = firstOfMonth - Weekday(firstOfMonth, (dy Mod 7) + 1) + (7 * wk)
msgbox FormatDateTime(dateRequired, vbShortdate)
back top main page vb snippets page java snippets page vbscript snippets page email Page last modified