Outlook Technologies

Outlook Forms

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: beginner Code area: Code Essentials Printer Friendly Version
Title: Simple NextBusinessDay() function
Description: If you need to know what date will occur 3 days from now, counting weekdays only, there's no simple way to do that with just a formula (at least not one that I can debug easily), hence the need for a function like this one that can skip days. (If weekends fall on different days in your part of the world, adjust the Select block accordingly.) For a more robust version that can also account for vacation and holidays, see listing 14.4 in the sample code for the book, from the 'get the code' link above.
Date: 25-Aug-2003 09:58
Code level: beginner
Code area: Code Essentials
Posted by: Sue Mosher
Body: ' VBA version Function NextBusinessDay(dteDate As Date, _ intAhead As Integer) As Date Dim dteNextDate As Date dteNextDate = DateAdd("d", intAhead, dteDate) Select Case Weekday(dteNextDate) Case 1 dteNextDate = dteNextDate + 1 Case 7 dteNextDate = dteNextDate + 2 End Select NextBusinessDay = dteNextDate End Function ' VBScript version Function NextBusinessDay(dteDate, intAhead ) Dim dteNextDate dteNextDate = DateAdd("d", intAhead, dteDate) Select Case Weekday(dteNextDate) Case 1 dteNextDate = dteNextDate + 1 Case 7 dteNextDate = dteNextDate + 2 End Select NextBusinessDay = dteNextDate End Function
All 0comments

name email