VBA - Función DatePart

Una función, que devuelve la parte específica de la fecha dada.

Sintaxis

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

Descripción de parámetros

Interval- Un parámetro obligatorio. Puede tomar los siguientes valores.
- d - día del año.
- m - mes del año
- y - año del año
- aaaa - año
- w - día de la semana
- ww - semana
- q - cuarto
- h - hora
- n - minuto
- s - segundo
Date1 - Un parámetro obligatorio.
Firstdayofweek- Un parámetro opcional. Especifica el primer día de la semana. Puede tomar los siguientes valores.
- 0 = vbUseSystemDayOfWeek - Usar configuración de API de soporte de idioma nacional (NLS)
- 1 = vbDomingo - Domingo
- 2 = vbMonday - Monday
- 3 = vbTuesday - Tuesday
- 4 = vbMiércoles - Miércoles
- 5 = vbJueves - Jueves
- 6 = vbViernes - Viernes
- 7 = vb sábado - sábado
Firstdayofyear- Un parámetro opcional. Especifica el primer día del año. Puede tomar los siguientes valores.
- 0 = vbUseSystem: utilizar la configuración de API de compatibilidad con idiomas nacionales (NLS)
- 1 = vbFirstJan1: comienza con la semana en la que ocurre el 1 de enero (predeterminado)
- 2 = vbFirstFourDays: comience con la semana que tenga al menos cuatro días en el nuevo año
- 3 = vbFirstFullWeek: comienza con la primera semana completa del año nuevo

Ejemplo

Agregue un botón y agregue la siguiente función.

Private Sub Constant_demo_Click()
   Dim Quarter as Variant
   Dim DayOfYear as Variant
   Dim WeekOfYear as Variant
  
   Date1 = "2013-01-15"
   Quarter    = DatePart("q", Date1)
   
   msgbox("Line 1 : " & Quarter)
   DayOfYear  = DatePart("y", Date1)
   
   msgbox("Line 2 : " & DayOfYear)
   WeekOfYear = DatePart("ww", Date1)
   
   msgbox("Line 3 : " & WeekOfYear)
   msgbox("Line 4 : " & DatePart("m",Date1))  
End Sub

Cuando ejecuta la función anterior, produce la siguiente salida.

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1

↰ Previous page