Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Logo Excel Avanzado

Función DatePart en VBA

| 4 comentarios

La función Datepart nos permite extraer una parte de una fecha. 

Sintaxis de DatePart

A continuación se explican los argumentos: 

Sintaxis DatePart VBA

intervalo: Este argumento es obligatorio. Se asigna el intervalo de tiempo que uno requiere. Es importante mencionar, que el nombre de los intervalos esta en inglés, por lo que sus iniciales también lo está. Por ejemplo, si de la fecha que se tiene se desea saber el dia (day) se escribe la letra "d". Similarmente, si se quiere hallar el mes (month) se escribe la letra "m". Ojo, tener presente la traducción en ingles de intervalos de tiempo como: año, semana, hora, minuto y segundo. 

La lista de valores que se pueden emplear se encuentra en el siguiente cuadro:

Parte especificada datepart

fecha: Este argumento es obligatorio. Este es el valor que vamos a evaluar.  

firstdayofweek: Este argumento es opcional,  esta constante especifica el primer día de la semana, si el parámetro se omite, se asume que Domingo es el primer día de la semana. La constante puede especificarse con los siguientes valores:

firstdayofweek

firstweekofyear: Este argumento es opcional. Nos da la primera semana del año. 

Ejemplo 1:

Veamos un ejemplo donde deseamos hallar año, mes y día.

Private Sub Constant_demo_Click()

‘Comentario 1: Se crea las variables "Day", "Month" y "Year"

Dim Day As Variant

Dim Month As Variant

Dim Year As Variant

‘Comentario 2: Se establece la fecha en base a la cual nos guiaremos 

Date1 = "25-03-2019"

‘Comentario 3: La variable "Day" tomara el valor que la función DatePart obtenga del dia de Date1

Day = DatePart("d", Date1)

MsgBox ("Line 1 : " & Day)

‘Comentario 4: La variable "Month" tomara el valor que la función DatePart obtenga del mes de Date1

Month = DatePart("m", Date1)

MsgBox ("Line 2 : " & Month)

‘Comentario 5: La variable "Year" tomara el valor que la función DatePart obtenga del año de Date1

Year = DatePart("yyyy", Date1)

MsgBox ("Line 3 : " & Year)

‘ Comentario 6: Los resultados del dia, mes y año sera visibles por medio de un mensaje, para ello, se usa MsgBox

End Sub

Descargar ejemplo:  Ejemplo Función DatePart

 

4 comentarios

  1. buenas noches, quisiera saber como resto dos fechas en un formulario de excel vba y que el resultado de esa resta me quede en el mismo formulario en un textbox aparte

    gracias

  2. Gracias por este tutotial me ha sido muy util y me ha resulto un problema en el trabajo

  3. Como puedo saber el ultimo lunes del mes, por ejemplo si tengo la fecha 28/04/2021 y quiero saber la fecha del ultimo lunes del mes que sería 26/04/2021, con que formula podría sacarla.

  4. Para saber la semana de una fecha determinada, estoy usando una sentencia en acess que os copio y no hay manera que funciona:

    Expr1: ParcFecha("""ee""";[DATA VISITA];2;1)

    Podeis ayudarme

Deja una respuesta

Los campos requeridos estan marcados con *.