Función para, dada una fecha inicial y un número de días laborables, obtener una fecha final.
Formas de llamada:
FechaFinal = SumarDias 'Obtiene el siguiente día laborable a hoy
FechaFinal = SumarDias(Fecha) 'Obtiene el siguiente día laborable a Fecha)
FechaFinal = SumarDias(Fecha, Dias) 'Obtiene la fecha transcurridos un nº de días)
En el propio libro, debe existir una hoja de nombre "Festivos" con los días festivos excluidos sábados y domingos. Estas fechas deben informarse en la columna 1.
De no existir la hoja "Festivos", debe informarse de un tercer parámetro en la llamada:
FechaFinal=SumarDias(Fecha, Dias, False)
Si además se quieren excluir los sábados como festivos:
FechaFinal= SumarDias(Fecha, Dias, False, False)
Y también se quieren excluir los domingos como festivos:
Hola:
Función para, dada una fecha inicial y un número de días laborables, obtener una fecha final.
Formas de llamada:
FechaFinal = SumarDias 'Obtiene el siguiente día laborable a hoy
FechaFinal = SumarDias(Fecha) 'Obtiene el siguiente día laborable a Fecha)
FechaFinal = SumarDias(Fecha, Dias) 'Obtiene la fecha transcurridos un nº de días)
En el propio libro, debe existir una hoja de nombre "Festivos" con los días festivos excluidos sábados y domingos. Estas fechas deben informarse en la columna 1.
De no existir la hoja "Festivos", debe informarse de un tercer parámetro en la llamada:
FechaFinal=SumarDias(Fecha, Dias, False)
Si además se quieren excluir los sábados como festivos:
FechaFinal= SumarDias(Fecha, Dias, False, False)
Y también se quieren excluir los domingos como festivos:
FechaFinal= SumarDias(Fecha, Dias, False, False, False)
Enjoy it !
Macro.
SumarDias.zip