FUNCIÓN PARA EXTRAER UN DETERMINADO DÍA DE LA SEMANA ENTRE DOS FECHAS

Hola a todos, cómo estáis?. Espero que bien.

En el post de hoy y siguiendo con la temática de las fechas, he querido programar una función que sea capaz de mostrar lo siguiente: un determinado día de la semana entre dos fechas, por ejemplo, todos los lunes que existen entre el 01/01/2021 y el 31/01/2021. Y que este resultado lo muestre en una lista en formato fecha.

Pues bien, para hacer esto os propongo la siguiente UDF

Function DIA_SEMANA_ENTRE(inicio As Date, final As Date, dia As Integer)
    Dim i As Long, j As Long, ndias As Long
    Dim Mifecha As Date, MiCadena As String, Matriz As Variant, miArray As Variant
    'días entre las dos fechas
    ndias = DateDiff("D", inicio, final)
    'Generamos día y si coincide lo pasamos el string
    For i = 0 To ndias
        Mifecha = DateAdd("D", i, inicio)
        If Weekday(Mifecha, vbMonday) = dia Then
            MiCadena = Trim(MiCadena & " " & Mifecha)
        End If
    Next i
    'pasamos datos a una matriz y resultado a la función.
    Matriz = Split(MiCadena, " ")
    ReDim miArray(0 To UBound(Matriz))
    For j = 0 To UBound(Matriz)
        miArray(j) = Matriz(j)
    Next j
    DIA_SEMANA_ENTRE = Application.Transpose(miArray)
End Function

Como podéis observar tiene tres argumentos, los dos primeros son la fecha inicial y la fecha final y el tercer argumento es el día que queremos obtener, empieza del 1 al 7 (Lunes a Domingo).

Por ejemplo, con esta función podemos obtener todos los Lunes, Martes, Miércoles, Jueves, Viernes, Sábados y Domingos entre la siguiente fecha: 01/01/2021 al 31/07/2021

Creo que esta imagen vale más que mil palabras.Como se puede apreciar, la fórmula muestra en cada columna la relación específica de días seleccionados.

Esta es una función de matriz dinámica (o derramada) válida para versiones actuales de Office 365, en versiones anteriores se mostrará la fórmula expresada como matricial.

Puedes descargar el enlace pulsando aquí: FUNCIÓN PARA EXTRAER UN DETERMINADO DÍA DE LA SEMANA ENTRE DOS FECHAS

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.



¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies