La función DatePart en VBA se utiliza para obtener una parte específica de una fecha. Devuelve la parte de una fecha especificada como un intervalo, por ejemplo, el año, mes, día, hora, minuto, etc.

Aquí tienes la sintaxis básica de la función DatePart en VBA:

DatePart(interval, date, [firstdayofweek], [firstweekofyear])

• interval: Es una cadena de texto que especifica la parte de la fecha que quieres obtener. Los valores comunes para el intervalo son «yyyy» para el año, «q» para el trimestre, «m» para el mes, «y» para el día del año, «d» para el día, «w» para el día de la semana, «ww» para la semana del año, «h» para la hora, «n» para el minuto, «s» para el segundo.
• date: Es la fecha que quieres evaluar.
• firstdayofweek: Un parámetro opcional que especifica el primer día de la semana. Si se omite, se asume que es domingo.
• firstweekofyear: Un parámetro opcional que especifica la primera semana del año. Si se omite, se asume que la primera semana es la que contiene el 1 de enero.

Aquí hay algunos ejemplos de cómo usar DatePart en VBA:

Ejemplo 1 Obtener el año de una fecha

Sub EjemploDatePart()
    Dim d As Date
    d = DateSerial(2023, 3, 14) ' 14 de marzo de 2023
    MsgBox "El año es: " & DatePart("yyyy", d)
End Sub

Ejemplo 2 Obtener el mes de una fecha

Sub EjemploDatePart()
    Dim d As Date
    d = DateSerial(2023, 3, 14) ' 14 de marzo de 2023
    MsgBox "El mes es: " & DatePart("m", d)
End Sub

Ejemplo 3 Obtener el día de la semana de una fecha (considerando que el lunes es el primer día de la semana)

Sub EjemploDatePart()
    Dim d As Date
    d = DateSerial(2023, 3, 14) ' 14 de marzo de 2023
    MsgBox "El día de la semana es: " & DatePart("w", d, vbMonday)
End Sub

Cada vez que ejecutas uno de estos procedimientos, se mostrará un mensaje con el valor correspondiente obtenido de la parte de la fecha que hayas solicitado.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto