Function ShipDate (OrderDate As Variant, Production Days As Variant)

		'Determines the shipping date of a produced product
		'if the production department is closed on weekends.
		'This function does not adjust shipping date if a
		'holiday falls in the production period.

					'DECLARE VARIABLES
   Dim WorkDays As Integer
   Dim DateCnt As Variant
   Dim EndDays As Integer
   Dim CalDays As Variant
   Dim EndDate As Variant
   Dim Tester As Variant

					'CHECK FOR NULL ON INPUT FORM
   If Not IsNull(OrderDate) And Not IsNull(ProductionDays) Then

					'VARIABLE ASSIGNMENTS
      CalDays = DateAdd("d", ProductionDays, OrderDate)
      OrderDate = DateValue(OrderDate)
      EndDate = DateValue(CalDays)
      DateCnt = OrderDate
      EndDays = 0

					'COUNT WEEKEND DAYS IN PROD PERIOD
      Do While DateCnt < EndDate
         If DatePart("w", DateCnt) = 1 Or DatePart("w", DateCnt) = 7 Then
            EndDays = EndDays + 1
            EndDate = DateAdd("d", 1, EndDate)
         End If
         DateCnt = DateAdd("d", 1, DateCnt)
      Loop

					'ADD WEEKEND DAYS TO PROD DAYS
      WorkDays = ProductionDays + EndDays
      Tester = DateAdd("d", WorkDays, OrderDate)

					'DETERMINE IF DATE FALLS ON SAT
      If DatePart("w", Tester) = 7 Then
         Workdays = Workdays + 2
      End If

					'CALCULATE SHIPPING DATE
      ShipDate = DateAdd("d", WorkDays, OrderDate)

					'RETURN STRING IF NULL
   Else
      ShipDate = "Unknown"

   End If

End Function