Add coding to check day of the week

[zoog25]

Hello all,

I have a coding that adds appointments to the outlook calendar. The situation is that i have a date in a cell. The coding would then make an appointment 90 days from the date entered. The issue is, what do i add to the coding so in case the 90 days falls on a Saturday or Sunday, it moves it to the following Monday. Ie, if the 90 days falls on September 21 or September 22 (Saturday or Sunday), the coding would make the appointment for September 23 or Monday.

dStartTime = (TPws.Cells(rw, "AD").Value + 90) + #8:00:00 AM#

This is all i have. AD is the date entered in the spreadsheet and i just add 90. Now what do i add to check to see that that date isn't on a Saturday or Sunday and if it is, it moves it to Monday.

Thank you.

 

[Trebor76]

Hi zoog25,

Try this:

If Weekday(dStartTime, vbMonday) = 6 Then 'Saturday
    dStartTime = (TPws.Cells(rw, "AD").Value + 90 + 2) + #8:00:00 AM#
ElseIf Weekday(dStartTime, vbMonday) = 7 Then 'Sunday
    dStartTime = (TPws.Cells(rw, "AD").Value + 90 + 1) + #8:00:00 AM#
End If

I have a coding that adds appointments to the outlook calendar.

If you could post your entire code it would be appreciated as I'm sure setting appoints via Excel would be useful to at least some users in the community.

Thanks,

Robert

 

[Peter_SSs]

If I have understood correctly, I think this should do it for you directly.

dStartTime = WorksheetFunction.WorkDay(TPws.Cells(rw, "AD").Value + 89, 1) + #8:00:00 AM#