La función Datepart nos permite extraer una parte de una fecha.
Sintaxis de DatePart
A continuación se explican los argumentos:
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:
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:
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
27/05/2019 a las 10:21 pm
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
24/08/2020 a las 11:47 am
Gracias por este tutotial me ha sido muy util y me ha resulto un problema en el trabajo
23/04/2021 a las 8:29 am
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.
28/03/2022 a las 6:41 am
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