WeekDay
Result = WeekDay ( Date )
Calcula o dia da semana de uma data.
-
Date é a data para processar.
Retorna um número inteiro entre 0 (Domingo) e 6 (sábado) que representa os dias da semana.
Veja
Constantes Pré-definidas para uma lista de constantes associadas aos dias da semana.
Exemplos
Print Now; " -> "; WeekDay(Now)
05/16/2002 22:31:30 -> 4
If WeekDay("6/8/2008") = 0 Then
Print "É um domingo"
Else
Print "Não é um domingo"
Endif
É um domingo
Dim DayNames As String[]
Dim D As Date
DayNames = ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"]
D = "6/8/2008"
Print "Foi um "; DayNames[WeekDay(D)]; " em "; Format$(D, "d mmm,yyyy")
Foi um domingo em 8 Jun,2008
' Este exemplo dá a data para o próximo domingo
Dim D As Date
D = DateAdd(Now, gb.Day, 7 - WeekDay(Now))
Print "O domingo seguinte, cai no"; Format$(D, "d mmm,yyyy")
Veja também