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.

Códigos de error:

5 Llamada a procedimiento no válida

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