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

WeekdayName(Weekday(Date))

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

WeekdayName(Weekday(Date), True)

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

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

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