Aplicación
Contenido
Índice 🔎︎

# 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