Syntax

Weekday(date)

Description

Returns an Integer value representing the day of the week given by date. Sunday is 1, Monday is 2, and so on.

The date parameter is any expression representing a valid date.

Example

This example gets a date in an input box and displays the day of the week and its name for the date entered.

Sub Main()
  Dim a$(7)
  a$(1) = "Sunday"
  a$(2) = "Monday"
  a$(3) = "Tuesday"
  a$(4) = "Wednesday"
  a$(5) = "Thursday"
  a$(6) = "Friday"
  a$(7) = "Saturday"

Reprompt:
  bd = InputBox("Please enter your birthday.","Enter Birthday")
  If Not(IsDate(bd)) Then Goto Reprompt

  dt = DateValue(bd)
  dw = WeekDay(dt)
  Msgbox "You were born on day " & dw & ", which was a " & a$(dw)
End Sub

See Also

Day (function);Minute (function); Second (function); Month (function); Year (function); Hour (function); DatePart (function).

W