devxlogo

Quick Test for Weekend

Quick Test for Weekend

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

devx-admin

Share the Post: