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

| 0 comments

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

Sintaxis:

A continuación se explicaron los argumentos: 

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

interval: 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. 

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

firstdayofweek: Este argumento es opcional. Nos remite el primer dia de la semana. Para una

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

Por: Jesús Rodriguez 

Deja un comentario

Required fields are marked *.