Incrementar dias uteis a partir de uma data inicial

Function IncrementaDiasUteis(DataInicial As NotesDateTime, Dias As Integer) As String
' ===> Objetivo:
' ===> Incrementar dias uteis a partir de uma data inicial

' Parâmetros
' DataInicial = Data inicial
' Dias = Dias uteis

' Retorno => Data incrementada dos dias uteis
On Error Goto trataerro

Dim dc As NotesDocumentCollection
Dim strdt As String
Dim view As NotesView
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("vwFeriados")

Do
Call DataInicial.AdjustDay(1)

' Pegando o dia da semana
wd% = Weekday(DataInicial.dateonly)

' se data diferente de sábado e domingo
If (wd% <> 1 And wd% <> 7) Then
Dias = Dias - 1
End If

Loop While Dias > 1

IncrementaDiasUteis = Format(Cstr(DataInicial.DateOnly), "dd/mm/yyyy")
Exit Function
End Function