Saturday, August 2, 2025
Friday, May 31, 2024
Tuesday, January 30, 2018
Friday, January 26, 2018
Visual Basic l Adding a number of weekdays to a date
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
