vba word - excluding weekends

[kobie]

Hi everyone! I havent had to use th forum in a whhile but here-goes:

I am creating a dropdown to dictate a return date. Here is my code:

Private Sub cboSelectAttempts_Change()

If cboSelectAttempts.ListIndex = 0 Then

txtFlup.Text = Format(Now + 4, "mm/dd/yyyy")
cboSelectAttempts.SetFocus
​

End If


If cboSelectAttempts.ListIndex = 1 Then

txtFlup.Text = Format(Now + 4, "mm/dd/yyyy")
txtBtn.SetFocus
​

End If



If cboSelectAttempts.ListIndex = 2 Then

txtFlup.Text = Format(Now + 3, "mm/dd/yyyy")
txtBtn.SetFocus
​

End If



If cboSelectAttempts.ListIndex = 3 Then

txtFlup.Text = Format(Now + 2, "mm/dd/yyyy")
txtBtn.SetFocus
​

End If



If cboSelectAttempts.ListIndex = 4 Then

txtFlup.Text = Format(Now + 1, "mm/dd/yyyy")
txtBtn.SetFocus
​

End If



If cboSelectAttempts.ListIndex = 5 Then

txtFlup.Text = Format(Now + 1, "mm/dd/yyyy")
txtBtn.SetFocus
​

End If

​

End Sub

I am wanting "txtFlup.Text" to return the date specified but i want to exclude weekends.

Anyone's help is appreciated!!

Thanks

Kobie

 

[kobie]

If a weekend(day) is included, I would like to remove Saturday and Sunday in the total number of days incremented. So if:

If cboSelectAttempts.ListIndex = 1 Then
txtFlup.Text = Format(Date + 4, "mm/dd/yyyy")
txtBtn.SetFocus
End If

03/29/2012 + 4, I want it to show: 04/04/2012

Bryan

 

[shg]

Maybe

txtFlup.Text = Format(Worksheetfunction.Workday(Date, 4), "mm/dd/yyyy")

 

[Macropod]

Cross-posted at: http://www.vbaexpress.com/forum/showthread.php?t=41573
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184