Ayuda con el cálculo de operaciones de los datos de celdas en excel
Necesito calcular el total de días que demoro en prestar un servicio, pero descontar los días sábados y domingo siempre que la fecha de solicitud sea un día viernes, ¿qué funciones debo anidar?
Por favor vuestra ayuda,
Slds.
Jona
Por favor vuestra ayuda,
Slds.
Jona
Respuesta de santiagomf
1
Lo más sencillo es que te definas tus mismas funciones. Podría ser esta:
' Marcamos los días que vamos a considerar como fiesta y tampoco los contaremos
' van separados por cualquier carácter y van en formato MMDD
Const diasDeFiestaFijos = "0101,0106,0501,0502,1206,1208,1225"
Function cuentaDiasSinFinDeSemana(ByVal fechaInicial As Date, ByVal fechaFinal As Date) As Integer
Dim f As Date
Dim n As Integer
n = 0
For f = fechaInicial To fechaFinal
If Weekday(f, vbMonday) < 6 Then
If InStr(diasDeFiestaFijos, Format$(f, "mmdd")) = 0 Then n = n + 1
End If
Next f
cuentaDiasSinFinDeSemana = n
End Function
Tienes que entrar en el editor de Visual Basic (<alt><F11>) y crear un módulo (menú insertar - módulo). En ese módulo copias el código anterior y ya puedes usar tu función "cuentaDiasSinFinDeSemana".
' Marcamos los días que vamos a considerar como fiesta y tampoco los contaremos
' van separados por cualquier carácter y van en formato MMDD
Const diasDeFiestaFijos = "0101,0106,0501,0502,1206,1208,1225"
Function cuentaDiasSinFinDeSemana(ByVal fechaInicial As Date, ByVal fechaFinal As Date) As Integer
Dim f As Date
Dim n As Integer
n = 0
For f = fechaInicial To fechaFinal
If Weekday(f, vbMonday) < 6 Then
If InStr(diasDeFiestaFijos, Format$(f, "mmdd")) = 0 Then n = n + 1
End If
Next f
cuentaDiasSinFinDeSemana = n
End Function
Tienes que entrar en el editor de Visual Basic (<alt><F11>) y crear un módulo (menú insertar - módulo). En ese módulo copias el código anterior y ya puedes usar tu función "cuentaDiasSinFinDeSemana".
Gandioso, me ha sido muy útil, pero me salto una disyuntiva, para aquellos días que no son FDS, pues me ha aumentado en 1 día los tiempos de desfase existentes, ¿es normal?, como puedo darle solución.
