Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

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