lang • weekday

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