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.
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