Função WeekDay

Devolve o número correspondente ao dia da semana representado por um número de data em série gerado pela função DateSerial ou DateValue.

Sintaxe:

WeekDay (Número)

Valor de retorno:

Número inteiro

Parâmetros:

Número: expressão de números inteiros que contém o número de data em série utilizado para calcular o dia da semana (1-7).

O exemplo que se segue determina o dia da semana utilizando a função WeekDay quando se introduz uma data.

Códigos de erro

5 Chamada de procedimento inválido

Exemplo:

Sub ExampleWeekDay

Dim sDay As String

' Obter e devolver o dia da semana

    Select Case WeekDay( Now )

        Case 1

            sDay="domingo"

        Case 2

            sDay="segunda-feira"

        Case 3

            sDay="terça-feira"

        Case 4

            sDay="quarta-feira"

        Case 5

            sDay="quinta-feira"

        Case 6

            sDay="sexta-feira"

        Case 7

            sDay="sábado"

    End Select

    MsgBox "" + sDay,64,"Hoje é"

End Sub