Calendar with Selection of NON Work Dates

[rickn]

Is there a way to have a calender show and be able to select the dates on the calendar as non work dates? For example, if a job is scheduled to start on Friday and takes 2 days to complete, it realy won't be done untill Monday - since Sat and Sun are non work days.

[maximus]

This is what I have done:
1) Type starting date
2) Type no.of.Days required to complete the job.
3) the ending date is Calculated when Calculate date button is Clicked.

The calculation excludes the week ends. test the set up and see.

Code used:

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
Dim dtFinishingDate As Date
Dim intfinishingDay As Integer
Dim dtfinalFinishingDate As Date
Dim intDays As Integer
Dim intSunday As Integer
Dim intSaturday As Integer
Dim intCounter As Integer

intSunday = 0
intSaturday = 0
intCounter = 0

For intCounter = 0 To Me.Text2 - 1
dtFinishingDate = DateAdd("d", intCounter, Me.Text0)
intfinishingDay = DatePart("w", dtFinishingDate)
Select Case intfinishingDay
Case Is = 1
intSunday = intSunday + 1
Case Is = 7
intSaturday = intSaturday + 1
End Select
Next

intDays = (intSunday + intSaturday + Me.Text2) - 1
dtfinalFinishingDate = DateAdd("d", intDays, Me.Text0)

Select Case DatePart("w", dtfinalFinishingDate)
Case Is = 7
Me.Text5 = DateAdd("d", 2, dtfinalFinishingDate)
Case Is = 1
Me.Text5 = DateAdd("d", 1, dtfinalFinishingDate)
Case Else
Me.Text5 = dtfinalFinishingDate
End Select



Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub

Please refer the attached db.

[maximus]

is you problem solved if yes mark this thread solved.