Code to add 10 working days to current date and time.

[kinetekerz]

Hi all!

When pressing a command button in a user form, what is the code to add 10 working days to the current time and date?

Regards

 

[Momentman]

Something like this

Private Sub CommandButton1_Click()
    MsgBox CDate(Application.WorksheetFunction.WorkDay(Date, 10))
End Sub

 

[kinetekerz]

Cheers!

How about 48 hours from now?

 

[Momentman]

Cheers!

How about 48 hours from now?

Like this

Private Sub CommandButton1_Click()
    MsgBox Now + TimeSerial(48, 0, 0)
End Sub

 

[kinetekerz]

Thank you so much!

I also have a currently outstanding question here in regards to adding an optional text box to a list box, is this your area of expertise?

http://www.mrexcel.com/forum/excel-...lp-multiple-selection-box-copy-clipboard.html

regards