See Also Example
Returns an integer between 1 and 12, inclusive, that represents the month of the year for a date argument.
The dateexpression part of the syntax is any numeric expression Numbers to the left of the decimal point in dateexpression represent the date; numbers to the right represent the time. Negative numbers represent dates prior to December 30, 1899. or string expression that can represent a date and/or time from January 1, 100 through December 31, 9999, where January 1, 1900 is 2.
If dateexpression is Null, this function returns a Null.
Date, Date$ Functions
Date, Date$ Statements
Month Function Example
The example uses the Month function to determine the month of the year. To try this example, paste the code into the Declarations section of a form. Then press F5 and click the form.
Sub Form_Click ()
Dim MonthNum, MonthSuffix, Msg, Serial ' Declare variables.
Serial = Now ' Get date serial number.
MonthNum = Month(Serial) ' Get current month number.
Select Case MonthNum ' Get proper suffix
Case 1 ' for each number.
MonthSuffix = "st"
MonthSuffix = "nd"
MonthSuffix = "rd"
MonthSuffix = "th"
Msg = Format(Serial, "mmmm") & " is the " & MonthNum
Msg = Msg & MonthSuffix & " month of the year."
MsgBox Msg ' Display message.