Purpose Returns the month of the year for any valid date expression. Syntax Month (DateExpression) Example Sub Main()         Dim d As Date         Dim monthnum As Integer         d = Today         monthnum = Month(d)                 Select Case monthnum                         Case 1                                 Print "This is the "; monthnum; " month of the year"                         ...                         Case Else                                 Print "This is the   "; monthnum; " month of the year"                 End Select End Sub