I am newbie for Acc97 I would like to calculate working day
and I really don't know how 2 reach the solution. Please be advise.
Thank you in advance for every reply.

Function to calculate working day from :
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=AxxessXP&Number=11
7278&page=0&view=collapsed&sb=5&o=7&fpart=1

Function Work_Days (BegDate As Variant, EndDate As Variant) As Integer
' Note that this function does not account for holidays.
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

End Function

Sample Code to Calculate special hoiliday.

' FUNCTION : CalcHolidays(dStartDate As Date, dEndDate As Date) As
Integer
' RETURNS : Integer
' PURPOSE : Calculates the number of company holidays between the start
date and end date.
' AUTHOR : George Hepworth
' DATE : 5/4/2001
' Requires current holidays be entered in
tlkpholidays
'
Public Function CalcHolidays(dStartDate As Date, dEndDate As Date) As
Integer
On Error GoTo errCalcHolidays

Dim iholiday As Date
Dim iHolidayCount As Integer
Dim rstHoliday As Recordset
Dim dbHolidayCheck As Database

CalcHolidays = 0
Set dbHolidayCheck = CurrentDb
Set rstHoliday = dbHolidayCheck.OpenRecordset("tlkpHoliday")
With rstHoliday
.MoveFirst
While Not .EOF
iholiday = rstHoliday!Holiday
If iholiday >= dStartDate And iholiday <= dEndDate Then
CalcHolidays = CalcHolidays + 1
End If
.MoveNext
Wend
End With

exitCalcHolidays:
Set dbHolidayCheck = Nothing
Set rstHoliday = Nothing
Exit Function

errCalcHolidays:
MsgBox Err & ": " & Err.Description
Resume exitCalcHolidays
End Function