MS Access 2003: Calcule el número de días hábiles entre dos fechas

Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.

MS Access 2003: Calcule el número de días hábiles entre dos fechas

Este tutorial de MSAccess explica cómo calcular el número de días hábiles entre dos fechas en Access 2003 (con capturas de pantalla e instrucciones paso a paso).

Pregunta: En Microsoft Access 2003/XP/2000/97, necesito calcular la cantidad de días hábiles (es decir, la cantidad de días que han pasado, sin incluir el sábado y el domingo) entre dos fechas.

Por ejemplo, si tengo el 4 de marzo de 2005 y el 29 de marzo de 2005, la cantidad de días hábiles es 17. ¿Cómo puedo calcularlo?

R: Puede calcular el número de días hábiles entre dos fechas usando la siguiente función:

Abra su base de datos de Access, haga clic en la pestaña Módulos y cree un nuevo módulo. Pegue el siguiente código:

Function CalcWorkdays(StartDate, EndDate) As Integer

   Dim LTotalDays As Integer
   Dim LSaturdays As Integer
   Dim LSundays As Integer

   On Error GoTo Err_Execute

   CalcWorkdays = 0

   If IsDate(StartDate) And IsDate(EndDate) Then
      If EndDate <= StartDate Then
         CalcWorkdays = 0
      Else
         LTotalDays = DateDiff("d", StartDate - 1, EndDate)
         LSaturdays = DateDiff("ww", StartDate - 1, EndDate, 7)
         LSundays = DateDiff("ww", StartDate - 1, EndDate, 1)

         'Workdays is the elapsed days excluding Saturdays and Sundays
         CalcWorkdays = LTotalDays - LSaturdays - LSundays

      End If

   End If

   Exit Function

Err_Execute:
   'If error occurs, return 0
   CalcWorkdays = 0

End Function

Aquí hay un ejemplo de cómo llamar a esta función en una consulta:

(Visited 15 times, 1 visits today)