Create Start Date

I created a module to generate the correct date to begin manufacturing. There are two sets of criteria. If the job's prefinish is a certain code then manufacturing takes 7 days. If the job's door style is a certain code then manufacturing takes 5 to 6 days. Otherwise the date range is 4. Prefinish takes precedence over door style. I have units that have the special prefinish and one of the door styles listed then it gets the door style days instead of 7 days. Any ideas?


Function CreateWOSDDate(ByVal PreFin As String, ByVal DrStyle As String, ByVal DelDate As Date) As Date


Dim intNumDays As Integer


Select Case PreFin

Case "BR17", "BR28", "WH06", "BR06", "BR11", "WH17", "BR00", "BR22"
intNumDays = 7
Case Else
intNumDays = 4
End Select

Select Case DrStyle

Case "DCREag", "DCRHWK", "DCRFAL", "RP-9", "RP-22", "RP-23", "Eagle", "H/E", "F/E", "FALCON", "AR756", "HAWK", "RP22", "RP23", "RP9", "EAG", "HWK", "FALCN", "SHAKER", "NEVADA"
intNumDays = 6
Case "PAC"
intNumDays = 5
Case Else
intNumDays = 4

End Select



CreateWOSDDate = MinusWorkdays(DelDate, intNumDays)


End Function