WeekDay Function (BASIC)

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

Necessitamos da sua ajuda!