I have sOrderDate, sPromiseDate and sShipDate variables.
An order is placed on Thursday, and we promise to ship the product within two to three days from order, unless the promise date falls on Saturday or Sunday, then ship the following Monday.
sPromiseDate = DateAdd("d",3,sOrderDate)
If Format(sPromiseDate,"dd") = "Saturday" Then
sShipDate = DateAdd("d",5,sOrderDate)
End If
If Format(sPromiseDate,"dd") = "Sunday" Then
sShipDate = DateAdd("d",4,sOrderDate)
End If
Is there something more graceful?