Need Count Working Day

[jig]

Hi, Guys

I am creating application in ms-access and i am struggling to counting working days when user gives start date and end date. i don't want to count saturday and sunday.
So, anyone can help how can i do it. i would be very appreciate if you provide me coding for that.

Thanks,

[ADezii]

Hi, Guys

I am creating application in ms-access and i am struggling to counting working days when user gives start date and end date. i don't want to count saturday and sunday.
So, anyone can help how can i do it. i would be very appreciate if you provide me coding for that.

Thanks,

This should work nicely for a Generic Code Template

Dim intNoOfDays As Integer, intCounter As Integer
Dim MyDates() As Date, T As Integer, intNoOfWeekdays As Integer
Dim dteStartDate As Date, dteEndDate As Date
 
dteStartDate = #1/1/2007#   'Starting Date
dteEndDate = #1/31/2007#    'Ending Date
 
intNoOfDays = DateDiff("d", dteStartDate, dteEndDate)   'Days between
 
ReDim MyDates(intNoOfDays)
 
MyDates(0) = dteStartDate   '1st Element in the Array
 
For intCounter = 1 To intNoOfDays   'Initialize other Elements
  MyDates(intCounter) = DateAdd("d", intCounter, dteStartDate)  'place Dates into Array
Next intCounter
 
If intNoOfDays > 0 Then
  For T = 0 To UBound(MyDates)  'Loop through Array
    If Weekday(MyDates(T)) > 1 And Weekday(MyDates(T)) < 7 Then     'Weekends would have values of 1 or 7
      intNoOfWeekdays = intNoOfWeekdays + 1
    End If
  Next T
Else
End If
 
MsgBox "The Number of Weekdays is: " & intNoOfWeekdays