See Also Example
Returns an integer between 1 and 12, inclusive, that represents the month of the year for a date argument.
Syntax
Month(dateexpression)
Remarks
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.
If dateexpression is Null
Date, Date$ Functions
Date, Date$ Statements
Day Function
Hour Function
Minute Function
Now Function
Second Function
Weekday Function
Year Function
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"
Case 2
MonthSuffix = "nd"
Case 3
MonthSuffix = "rd"
Case Else
MonthSuffix = "th"
End Select
Msg = Format(Serial, "mmmm") & " is the " & MonthNum
Msg = Msg & MonthSuffix & " month of the year."
MsgBox Msg ' Display message.
End Sub