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: