VB Script DateAdd Function to exclude Holidays and Sundays

I have a vbscript that adds 4 days to a Status date from our database. I need to exclude holidays and sundays from the dateadd function.

For example if the status date is today (7/14/2009) and add 4 days, it would be Saturday (7/18/2009).
If the status date is tomorrow (7/15/2009) and add 4 days, it would need to exclude Sunday and result = 7/20/2009
If the status date is 7/1/2009 and add 4 days, it would need to exclude Saturday ( 4th of July Holiday) and Sunday and result = 7/7/2009

Any ideas how to do this? Thanks.
dim nowdate
 
nowdate = datevalue(Status_Date_INLQ("Redisclosed to Borrower"))
 
Result = dateadd("d",4,nowdate)

Open in new window

LVL 2
asmyattAsked:
Who is Participating?
 
David LeeConnect With a Mentor Commented:
Ok.  You need something like the code below.  You'll have to write the IsHoldiay function.  I'm not sure how you're going to determine if a day is a holiday and if it's one you want to skip over (I assume you might not want to skip over things like Take Your Boss to Lunch Day).  
dim nowdate
 
nowdate = datevalue(Status_Date_INLQ("Redisclosed to Borrower"))
 
Result = dateadd("d",4,nowdate)
 
Do Until (WeekDay(Result) <> vbSunday) And (Not IsHoliday(Result))
    Result = DateAdd("d",1,Result)
Loop

Open in new window

0
 
David LeeCommented:
Hi, asmyatt.

What do you want the script to do if the date does fall on a holiday or Sunday?
0
 
asmyattAuthor Commented:
If the result date falls on a holiday or Sunday, it need to add another day. It does not need to fall on a holiday or Sunday.
0
All Courses

From novice to tech pro — start learning today.