Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Oct 7, 2000

BusinessDateAdd - Add or subtract a number of business days from a date

' add or subtract a number of business days from a date
'
' Note that it doesn't take Christmas, Easter and
' other holidays into account

Function BusinessDateAdd(ByVal days As Long, ByVal StartDate As Date, _
    Optional ByVal SaturdayIsHoliday As Boolean = True) As Date
    Do While days
        ' increment or decrement the date
        StartDate = StartDate + Sgn(days)
        ' check that it is a week day
        If Weekday(StartDate) <> vbSunday And (Weekday(StartDate) <> vbSaturday _
            Or Not SaturdayIsHoliday) Then
            ' days becomes closer to zero
            days = days - Sgn(days)
        End If
    Loop
    BusinessDateAdd = StartDate
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date