Fórmula con Días Hábiles
Hola buen día, tengo un problema con algunas funciones y fórmulas en fechas. Mi problema es el siguiente :
Tengo una planilla en la cual ingreso una fecha y le debo sumar la
cantidad de días HÁBILES.
Ejemplos :
Hoy es 17-02-2010
* Si coloco 1 día hábil el resultado seria 18-02-10
* Si coloco 2 días hábiles el resultado seria 19-02-10
* Si coloco 3 días hábiles el resultado seria 22-02-10
* Si coloco 6 días hábiles el resultado seria 25-02-10
* Si coloco 12 días hábiles el resultado seria 5-03-10
¿Cómo podría hacer una fórmula que me de este resultado?
Muchas gracias.
Tengo una planilla en la cual ingreso una fecha y le debo sumar la
cantidad de días HÁBILES.
Ejemplos :
Hoy es 17-02-2010
* Si coloco 1 día hábil el resultado seria 18-02-10
* Si coloco 2 días hábiles el resultado seria 19-02-10
* Si coloco 3 días hábiles el resultado seria 22-02-10
* Si coloco 6 días hábiles el resultado seria 25-02-10
* Si coloco 12 días hábiles el resultado seria 5-03-10
¿Cómo podría hacer una fórmula que me de este resultado?
Muchas gracias.
1 respuesta
Respuesta de Cadipas spain
1
He creado una función que cumple los parámetros que me indicas ( si no sabes que hacer con la función le lo indicas y te lo aclaro).
La función en cuestión es la siguiente:
Function SumarDiasHabiles(FechaInicio As Date, sumar As Integer) As Date
semanas = Int(sumar / 5) * 7
resto = sumar Mod 5
total = semanas + resto
SumarDiasHabiles = semanas + resto + FechaInicio
If Weekday(SumarDiasHabiles) = 1 Or Weekday(SumarDiasHabiles) = 7 Then SumarDiasHabiles = SumarDiasHabiles + 2
End Function
La función en cuestión es la siguiente:
Function SumarDiasHabiles(FechaInicio As Date, sumar As Integer) As Date
semanas = Int(sumar / 5) * 7
resto = sumar Mod 5
total = semanas + resto
SumarDiasHabiles = semanas + resto + FechaInicio
If Weekday(SumarDiasHabiles) = 1 Or Weekday(SumarDiasHabiles) = 7 Then SumarDiasHabiles = SumarDiasHabiles + 2
End Function
