'*******************************************************************************
'* Devuelve el número de días hábiles comprendidos entre dos fechas
'* NO contempla días festivos
'* uso: DiasHabiles ("01/01/03", "01/02/03")
'* ESH 15/05/03 20:00
'*******************************************************************************
Public Function DiasHabiles(strFechaInicio As String, strFechaFin As String) As Long
Dim datFechaInicio As Date, _
datFechaFin As Date
datFechaInicio = CDate(strFechaInicio)
datFechaFin = CDate(strFechaFin)
Do While datFechaInicio <> datFechaFin
' según la fecha de inicio se mayor o menor que la de fin
If datFechaInicio >= datFechaFin Then
If Weekday(datFechaFin, vbMonday) < 6 Then DiasHabiles = DiasHabiles + 1
datFechaFin = datFechaFin + 1
Else
If Weekday(datFechaInicio, vbMonday) < 6 Then DiasHabiles = DiasHabiles + 1
datFechaInicio = datFechaInicio + 1
End If
Loop
End Function ' DiasHabiles
Crear cuenta
Comentarios sobre la versión: Versión 1 (1)