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