Sígueme en

Dias Laborables

'******Suma dias laborables a un fecha en especifica******
Public Function SumarDiasLaborables(ByVal vFechaIni As Date, ByVal nDias As Integer) As Date
Dim vFechaFin, vFechaAux As Date
Dim TotalDiasNL As Integer
Dim Listo As Boolean

Listo = False
vFechaFin = vFechaIni + nDias
vFechaAux = vFechaIni
TotalDiasNL = 0

Do While Listo = False
Do While vFechaAux <
vFechaAux
vFechaAux = vFechaAux + 1
If (Weekday(vFechaAux, vbMonday) > 5) Then
TotalDiasNL = TotalDiasNL + 1
End If
Loop

If (TotalDiasNL > 0) Then
vFechaIni = vFechaFin
vFechaFin = vFechaFin + TotalDiasNL
vFechaAux = vFechaIni
TotalDiasNL = 0
Else
Listo = T
rue
End If
Loop

SumarDiasLaborables = vFechaFin

End Function
'*********************************************************

1 comentarios:

Anónimo dijo...

y los dias feriados no laborables donde quedo en tu codigo

coches de segunda mano - coches segunda mano