Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Dec 23, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Counting Work Days

I need to calculate the number of working days. Is there an easy way to do this?

From what I can see, there is no built-in function to do this. However, you can very easily write the code to do this. By using the DateDiff, DateAdd, and Weekday functions, you can determine how many days there are between two dates and how many of them are weekdays. The code here shows you how to do it.

Dim i As Integer
Dim iDay As Integer
Dim iDayCount As Integer
For i = 0 To DateDiff("d", "12-1-97", "12-15-97") - 1
   iDay = WeekDay(DateAdd("d", i, "12-1-97"))
   If iDay <> vbSunday And iDay <> vbSaturday Then
      iDayCount = iDayCount + 1
   End If
Next i
DevX Pro
Comment and Contribute






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



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