Projected Date

[dw85745]

Function ProjectedDate(dteBegDate As Date, lngNumDays As Long, blnSkipWeekEnds As Boolean, blnSkipHolidays As Boolean) As Date
'Get Forward or Backward Date from a Beginning Date
'Count starts with Day after Beginning Date
'If blnSkipWeekEnds or blnSkipHolidays = True, these days are NOT included when counting,
'   hence, the projected date is <> then when they are included (= False)
'Usage
'    dteNew = ProjectedDate("5/8/2004", 30, False, False)
 
   Dim lngCnt As Long
   Dim dblBegDate As Long
 
   '--------------
   
   dblBegDate = CDbl(dteBegDate)
   lngCnt = 0
 
   If lngNumDays > 0 Then
   
      Do
      
         'Increment Date (start with next day)
         dblBegDate = dblBegDate + 1
 
         'Skip Weekends
         If blnSkipWeekEnds Then
            If WeekDay(dblBegDate) = vbSunday Then GoTo Skip
            If WeekDay(dblBegDate) = vbSaturday Then GoTo Skip
         End If
      
         'Holidays (need database/array or lookup table)
         If blnSkipHolidays Then
         End If
         
         lngCnt = lngCnt + 1
Skip:
      
      Loop Until lngCnt = lngNumDays
    
   Else      'Projected Date is in the Past
   
      lngNumDays = Abs(lngNumDays)
   
      Do
      
         'Increment Date (start with next day)
         dblBegDate = dblBegDate - 1
 
         'Skip Weekends in Count
         If blnSkipWeekEnds Then
            If WeekDay(dblBegDate) = vbSunday Then GoTo Skip1
            If WeekDay(dblBegDate) = vbSaturday Then GoTo Skip1
         End If
      
         'Holidays (need database/array or lookup table)
         If blnSkipHolidays Then
         End If
         
         lngCnt = lngCnt + 1
Skip1:
 
      Loop Until lngCnt = lngNumDays
 
   End If
   
   ProjectDate = CDate(dblBegDate)
 
End Function