Date Function

[dbgurl]

I need to code a Date Function that calculates work days only but it's not working. Can someone help?

Here's the function:

Public Function DifferenceInDates(sStartDate, sEndDate)
Dim iDays
Dim iWorkDays
Dim sDay
Dim i
DifferenceInDates() As Integer

iDays = DateDiff("d", sStartDate, sEndDate)

iWorkDays = 0

For i = 0 To iDays
'First day of the week is Sunday
sDay = Weekday(DateAdd("d", i, sStartDate))
If sDay <> 1 And sDay <> 7 Then
iWorkDays = iWorkDays + 1
End If
Next
DifferenceInDates = iWorkDays
-------------------------------------

And here is the portion of the code I'm using it in:

iWorkDays = -(DateDiff("d", date, DateTrigger))
If iWorkDays < 4 Then DoCmd.SendObject acSendNoObject, , , vString, vString2, , "Signature Requested", "Drawing# " & DocTrigger & " (for " & CycleTrigger & ") submitted for the " & ProgramTrigger & " program has been on the sign-off table since " & DateTrigger & ". Please sign.", False
End If

If iWorkDays > 3 And iWorkDays < 6 Then DoCmd.SendObject acSendNoObject, , , vString & vString2, vString3, , "Important Information!", "Drawing# " & DocTrigger & " (for " & CycleTrigger & ") submitted for the " & ProgramTrigger & " program has been on the sign-off table since " & DateTrigger & ".", False
End If

[MAK]

http://www.databasejournal.com/featu...le.php/1552691

[MAK]

works fine for me.

Public Function GetNumberOfWorkDays(sStartDate, sEndDate)
Dim iDays
Dim iWorkDays
Dim sDay
Dim i

iDays = DateDiff("d", sStartDate, sEndDate)

iWorkDays = 0

For i = 0 To iDays
'First day of the week is sunday
sDay = Weekday(DateAdd("d", i, sStartDate))
If sDay <> 1 And sDay <> 7 Then
iWorkDays = iWorkDays + 1
End If
Next
GetNumberOfWorkDays = iWorkDays
End Function

Private Sub Command0_Click()
MsgBox GetNumberOfWorkDays("8/1/2003", "8/30/2003")


End Sub

[MAK]

put startdate as origination date and end date as todays date
MsgBox GetNumberOfWorkDays("8/1/2003", Now())


Please do not post the same thread in two different database journal forums.