Informatica

quitar dias festivos en access

[BK] = DLookup("[BUCKET]", "BUCKET", "[AREA]=[AREA_FUNCIONAL]")

If [combo_indicador] < 25 Or [combo_fecha_pago] = Null Then
[combo_vencido] = "A"[combo_vencido].BackColor = RGB(0, 210, 0)
Else
If [combo_indicador] < 31 Then
[combo_vencido] = "P"
[combo_vencido].BackColor = RGB(210, 95, 4)
Else
[combo_vencido]= "V"
[combo_vencido].BackColor = RGB(255, 50, 0)
End If
End If

[TCORRECIONES ENVIADAS] = Work_Days([F CORRECION DE CREDITOS], [CORRECIONES ENVIADAS])


[T PROCESO CREDITOS] =Work_Days([ENTREGA A CREDITOS], [HOY])

If [ENTREGA A CREDITOS] "" Then
[MES] = Month([ENTREGA A CREDITOS])
End If

[T PROCESO CREDITOS] = Work_Days([ENTREGA A CREDITOS], [HOY])

If [FCORRECION DE CREDITOS] "" Then
[T RESPUESTA X CREDITOS] = Work_Days([ENTREGA A CREDITOS], [RESPUESTA DE CREDITOS])
Else
[T RESPUESTA X CREDITOS] = Work_Days([ENTREGA A CREDITOS], [RESPUESTA DE CREDITOS])End If


[TCORRECIONES ENVIADAS] = Work_Days([F CORRECION DE CREDITOS], [CORRECIONES ENVIADAS])

If [F CORRECION DE CREDITOS] "" Then
[T RESPUESTA X CREDITOS] = Work_Days([ENTREGA A CREDITOS],[RESPUESTA DE CREDITOS])
Else
[T RESPUESTA X CREDITOS] = Work_Days([ENTREGA A CREDITOS], [RESPUESTA DE CREDITOS])
End If

[TIEMPO] = Work_Days([RESPUESTA DE CREDITOS], [FECHA])

[TIEMPO2] =Work_Days([FECHA2], [FECHA3])

[TIEMPO3] = Work_Days([FECHA DE PAGO], [FECHA3])
[TIEMPO4] = Work_Days([FECHA DE PAGO], [FECHA4])


[TIEMPO4] = Work_Days([FECHA DE PAGO], [FECHA4])
[TIEMPO5] =Work_Days([FECHA4], [FECHA5])


[TIEMPO5] = Work_Days([FECHA4], [FECHA5])
[TIEMPO6] = Work_Days([FECHA5], [FECHA6])


[TIEMPO6] = Work_Days([FECHA5], [FECHA6])
[Tiempo Total del Proceso] =Work_Days([ASIGNACION], [FECHA6])



[SUPERVISOR] = DLookup("[NOMBRE_SUPERVISOR]", "OFICIALES", "[NOMBRE]=[GESTOR]")


HOY] = Date
[Tiempo Total del Proceso] = Work_Days([ASIGNACION], [FECHA6])...