To test whether a date falls on a weekend, you might be inclined to do this:
nDay = weekday (sDate)If (nDay = 1) or (nDay = 7) Then 'It's a weekendEnd If
However, you can use VB’s MOD operator to perform the test in roughly half the time:
If (Weekday (sDate) MOD 6 = 1) Then 'It's a weekendEnd If