VBA identificar día de la semana – Función WeekDay en VBA

Hola Freak!! En el post siguiente vamos a resolver la duda de obtener el número del día de la semana básandonos en una fecha con la función WeekDay() en VBA.

Si lo que quieres es obtener el nombre del día, además de esta función tendrás que usar la función WeekdayName()

Sintaxis de la función weekday

Weekday ( date, [ firstdayofweek ] )

Date: Es Obligatorio. Corresponde a una fecha representada en formato número o fecha.

FirstDayOfWeek: Es opcional. los valores a insertar van indicar el primer día de la semana para calcular el número del día.

Los posibles valores a insertar son los siguientes:

vbUseSystem: es el valor que hay que insertar para que tenga en cuenta el primer día de la semana en base a la configuración del sistema.
vbSunday: Indica que el primer dia de la semana es el Domingo y es el valor por defecto y su valor es 1.
vbMonday: Indica que el primer dia de la semana es el Lunes. Su valor es 2
vbTuesday: Indica que el primer día de la semana es el Martes. Su valor es 3.
vbWednesday: Indica que el primer día de la semana es el Miércoles. Su valor es 4.
vbThursday: Indica que el primer día de la semana es el Jueves. Su valor es 5.
vbFriday: Indica que el primer día de la semana es el Viernes. Su valor es 6.
vbSaturday : Indica que el primer día de la semana es el Sábado. Su valor es 7.

Ejemplo 1

Vamos a ver un ejemplo de como poner en práctica esta función.

En el siguiente caso cogeremos la fecha actual y obtendremos el número del día de la semana a la que corresponde.

Sub Ejemplo_dia()


Dim Dia As Date 
Dim Dianum as Int 


Dia = Date 'Con Date obtenemos el día de hoy
Dianum = Weekday(Dia)
MsgBox "El día de hoy es: " & Dianum


End Sub

Ejemplo 2

En el siguiente ejemplo obtendremos el número del día de una fecha concreta.

Sub Ejemplo_dia()


Dim Dia As Date 
Dim Dianum as Int 


Dia = #08/09/2019# 'Insertamos una fecha en concreto, el mes debe ir delante
Dianum = Weekday(Dia, vbSunday)
MsgBox "El día es: " & Dianum


End Sub

Si tienes algunda duda al respecto, deja tu pregunta en el foro excel