VBA-Excel: Date-Time Functions – WeekDay() and WeekDayName()

WeekDay()

Description:

The WeekDay function takes Date as a parameter and returns a number between 1 and 7, that is the week day of the date provided.

Format:

WeekDay (strDate [Firstdayofweek])

Arguments:

• strDate
  • Manda­tory
  • Type: Date
  • Date, whose Week Date need to be calculated.

• Firstdayofweek
  • Optional
  • Type: Numeric
  • Specifies the first day of the week

Example:

Function FnWeekDay()

   Dim strDate

   strDate = "15-July-2013"    

   MsgBox "WeekDay of the " & strDate & " is -> " & Weekday(strDate)    

End Function

_________________________________________________________________________________

WeekDayName()

Description:

The WeekDayName function The takes numeric  value as a parameter and returns a week day Name.

Format:

WeekdayName(intWeekday, blnAbbreviate, firstdayofweek)

Arguments:

• intWeekDay
  • Manda­tory
  • Type: Numeric
  • Value from 1 to 7, Monday to Sunday, whose Week Day Name need to be calculated. Like WeekDayName(1) will return “Monday”
• blnAbbreviate
  • Optional
  • Type: Boolean
  • True value will provide the month name abbreviated, for example “Monday” will be abbreviated to “Mon”, and default value is False.
• Firstdayofweek
  • Optional
  • Type: Numeric
  • Specifies the first day of the week

Example:

Function FnWeekDayName()

   Dim strDate

   Dim strResult

    strDate = "1-July-2013"

   strResult = "Full WeekDay Name of the " & strDate & " is -> " & WeekdayName(Weekday(strDate)) & vbCrLf

   strResult = strResult & "Abbriviated Week Day Name of the " & strDate & " is -> " & WeekdayName(Weekday(strDate), True)

   MsgBox strResult

End Function

Also Read:

1. VBA-Excel: Cells Ranges Offset - Active Cell
2. VBA-Excel: Arrays – One Dimension, Static Array
3. VBA-Excel: Date-Time Functions – TimeSerial() and TimeValue()
4. VBA Excel – Looping Through a Range of Cells
5. VBA-Excel: Date-Time Functions – DateSerial()