Un punto mas sobre manejo de fechas !!

[erbuson]

Hola:

Creo que esta función, con algún cambio podría servirte

Código vb:

Private Function FechaLaborable(FechaInicial As Date, Dias As Integer) As Date
  ' Suma a la fecha indicada el número de días omitiendo Sábados y Domingos
  FechaLaborable = FechaInicial
  Do
    FechaLaborable = DateAdd("d", 1, FechaLaborable)
    ' Considerando 1er día Lunes, si dia semana es menor de 6 (Sábado) considera ha sumado 1
    If Weekday(FechaLaborable, vbMonday) < 6 Then Dias = Dias - 1
    ' Si ha sumado todos los días, sale del bucle
    If Dias = 0 Then Exit Do
  Loop
End Function
 

Saludos