VBA/Excel/Access/Word/Date Functions/WeekdayName

WeekdayName(Weekday(Date))

   <source lang="vb">

Sub Main3()

  Debug.Print "Today"s date is: " & Date
  Debug.Print "The name of the week day is: " & WeekdayName(Weekday(Date))

End Sub

</source>
   
  

WeekdayName(Weekday(Date), True)

   <source lang="vb">

Sub Main4()

  Debug.Print "Today"s date is: " & Date
  Debug.Print "The weekday abbreviated is: " & WeekdayName(Weekday(Date), True)

End Sub

</source>
   
  

WeekdayName (weekday) returns A String containing the weekday denoted by weekday

   <source lang="vb">

Sub dateDemo17()

  Debug.Print WeekdayName(Weekday(#4/1/2006#))

End Sub

</source>