Función WeekDay
Devuelve el número correspondiente al día de la semana representado por un número de fecha serie que genera la función DateSerial o DateValue.
Sintaxis:
WeekDay (Número)
Valor de retorno:
Entero
Parámetros:
Número: Expresión entera que contenga el número de fecha serie que se utilice para determinar el día de la semana (1-7).
El ejemplo siguiente determina el día de la semana con la función WeekDay cuando se escribe una fecha.
Ejemplo:
Sub ExampleWeekDay
Dim sDay As String
' Devolver y mostrar el día de la semana
Select Case WeekDay( Now )
Case 1
sDay="domingo"
Case 2
sDay="lunes"
Case 3
sDay="martes"
Case 4
sDay="miércoles"
Case 5
sDay="jueves"
Case 6
sDay="viernes"
Case 7
sDay="sábado"
End Select
MsgBox "" + sDay,64,"Hoy es"
End Sub