123 Eng

### Engineering the engineers™

Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

Computer Science / IT

Electronics

Electrical

Mechanical

Chemical

Civil

CAT / MBA

GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

Displaying  Source Code(s)

 Diff Business Days -------------------------------------------------------------------------------- Description : Number of Business days between two values ' evaluate the number of business days between two dates ' ' Note that it doesn't take Christmas, Easter and ' other holidays into account Function BusinessDateDiff(ByVal StartDate As Date, ByVal EndDate As Date, _ Optional ByVal SaturdayIsHoliday As Boolean = True) As Long Dim incr As Date ' ensure we don't take time part into account StartDate = Int(StartDate) EndDate = Int(EndDate) ' incr can be +1 or -1 If StartDate < EndDate Then incr = 1 Else incr = -1 Do Until StartDate = EndDate ' skip to previous or next day StartDate = StartDate + incr If Weekday(StartDate) <> vbSunday And (Weekday(StartDate) <> vbSaturday _ Or Not SaturdayIsHoliday) Then ' if it's a weekday add/subtract one to the result BusinessDateDiff = BusinessDateDiff + incr End If Loop ' when the loop is exited the function name ' contains the correct result End Function

Contribute content or training reports / feedback / Comments
job placement papers