Função WeekDay

Retorna o número correspondente ao dia da semana representado por um número data serial gerado pela função DateSerial ou pela função DateValue.

Sintaxe:

WeekDay (Number)

Valor de retorno:

Integer

Parâmetros:

Number: expressão de número inteiro que contém o número de data em série usado para calcular o dia da semana (1-7).

O exemplo a seguir determina o dia da semana, usando a função WeekDay quando você digita uma data.

Códigos de erro:

5 Chamada de procedimento inválida

Exemplo:

Sub ExampleWeekDay

Dim sDay As String

' Retornar e exibir 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