hi,

use the below function ..paste it into ur module

Function find_weekdays(BegDate As Variant, EndDate As Variant) As Integer

  Dim WholeWeeks As Variant
  Dim DateCnt As Variant
  Dim EndDays As Integer

  BegDate = DateValue(BegDate)
  EndDate = DateValue(EndDate)
  WholeWeeks = DateDiff("w", BegDate, EndDate)
  DateCnt = DateAdd("ww", WholeWeeks, BegDate)
  EndDays = 0
  Do While DateCnt <= EndDate
     If Format(DateCnt, "ddd") <> "Sun" And Format(DateCnt, "ddd") <> "Sat"
Then
        EndDays = EndDays + 1
     End If
     DateCnt = DateAdd("d", 1, DateCnt)
  Loop
  Work_Days = WholeWeeks * 5 + EndDays
find_weekdays = Work_Days
   
End Function

and call this function from ur query with 2 parameters...

for eg:

select  find_weekdays(#12/1/2005#,#12/12/2005#)-1 will return 7...this the
number of working days..i excluded saturday and sunday....

psl let me know if this helps u

thanks

with regds

Sunil.T

Paul Dennis,

Calculate Number of Working Days:

http://www.mvps.org/access/datetime/date0006.htm

Sincerely,

Chris O.