Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


Visual Basic Programming Code Examples

Visual Basic > Date Time Code Examples

Adding a number of weekdays to a date

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
Adding a number of weekdays to a date The simple function adds a number of weekdays to a date. 'Purpose : Adds a number of weekdays to a specified date. 'Inputs : dtDate The starting date ' lNumDays The number of days to add. 'Outputs : The starting date plus the number of specified weekdays 'Notes : For Excel change the header to: ' ' Function WeekDayAdd(ByVal dtDate As Date, ByVal lNumDays As Long) As Date ' Dim lDaysAdded As Long, eWeekday As VbDayOfWeek ' Dim lAdd As Long ' Application.Volatile True ' On Error GoTo ErrFailed ' ' To use the function in worksheets 'Revisions : Function WeekDayAdd(ByVal dtDate As Date, ByVal lNumDays As Long) As Date Dim lDaysAdded As Long, eWeekday As VbDayOfWeek Dim lAdd As Long On Error GoTo ErrFailed If lNumDays < 0 Then lAdd = -1 Else lAdd = 1 End If Do While lDaysAdded <> lNumDays dtDate = dtDate + lAdd eWeekday = Weekday(dtDate) If eWeekday > vbSunday And eWeekday < vbSaturday Then lDaysAdded = lDaysAdded + lAdd End If Loop WeekDayAdd = dtDate Exit Function ErrFailed: Debug.Print Err.Description Debug.Assert False End Function