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