Restar fechas
Hola ! Espero que alguien me pueda ayudar.
Tengo una base de datos en access 2000 en la cual hay dos campos de fecha los cuales debo restar para saber el numero de días entre los dos, pero debo quitar los sábados y domingos .
¿Alguien me pude decir como hacerlo?
De antemano gracias por su atención.
Att;
Lucas
Tengo una base de datos en access 2000 en la cual hay dos campos de fecha los cuales debo restar para saber el numero de días entre los dos, pero debo quitar los sábados y domingos .
¿Alguien me pude decir como hacerlo?
De antemano gracias por su atención.
Att;
Lucas
Respuesta de rgsnipper
1
Te adjunto una función que calcula los
Días entre dos fechas sin tener en cuenta sábados ni domingos. Pégala en un modulo y ya está
Puedes
Código original de Dev Ashish
extraido de: http://www.mvps.org/access/
(funciones date/time)
*********** Code Start **************
Function Work_Days (BegDate As Variant, EndDate As Variant) As Integer
' Note that this function does not account for holidays.
Dim WholeWeeks As Variant
Dim DateCnt As Variant
Dim EndDays As Integer
BegDate = DateValue(BegDate)
EndDate = DateValue(EndDate)
WholeWeeks = DateDiff("w", BegDate, EndDate)
DateCnt = DateAdd("ww", WholeWeeks, BegDate)
EndDays = 0
Do While DateCnt < EndDate
If Format(DateCnt, "ddd") <> "Sun" And _
Format(DateCnt, "ddd") <> "Sat" Then
EndDays = EndDays + 1
End If
DateCnt = DateAdd("d", 1, DateCnt)
Loop
Work_Days = WholeWeeks * 5 + EndDays
End Function
'*********** Code End **************
Días entre dos fechas sin tener en cuenta sábados ni domingos. Pégala en un modulo y ya está
Puedes
Código original de Dev Ashish
extraido de: http://www.mvps.org/access/
(funciones date/time)
*********** Code Start **************
Function Work_Days (BegDate As Variant, EndDate As Variant) As Integer
' Note that this function does not account for holidays.
Dim WholeWeeks As Variant
Dim DateCnt As Variant
Dim EndDays As Integer
BegDate = DateValue(BegDate)
EndDate = DateValue(EndDate)
WholeWeeks = DateDiff("w", BegDate, EndDate)
DateCnt = DateAdd("ww", WholeWeeks, BegDate)
EndDays = 0
Do While DateCnt < EndDate
If Format(DateCnt, "ddd") <> "Sun" And _
Format(DateCnt, "ddd") <> "Sat" Then
EndDays = EndDays + 1
End If
DateCnt = DateAdd("d", 1, DateCnt)
Loop
Work_Days = WholeWeeks * 5 + EndDays
End Function
'*********** Code End **************
Hola rgsnipper. Gracias por tu ayuda.
Pero quisiera hacerte una pregunta y perdona por mi ignorancia.
¿Cómo hago para que esta función tome la información de los campos de la tabla en la base de datos?
Es decir que BegDate tome los datos del campo fecha inicial y EndDate los del campo fecha final, cabe anotar que esto lo debo hacer directamente en access, es decir no lo hago a través de un programa en vb.
Espero que tenga sentido mi pregunta y de nuevo Gracias por tu atención.
Pero quisiera hacerte una pregunta y perdona por mi ignorancia.
¿Cómo hago para que esta función tome la información de los campos de la tabla en la base de datos?
Es decir que BegDate tome los datos del campo fecha inicial y EndDate los del campo fecha final, cabe anotar que esto lo debo hacer directamente en access, es decir no lo hago a través de un programa en vb.
Espero que tenga sentido mi pregunta y de nuevo Gracias por tu atención.
