|
| |
| ||||||||||||||||||
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
| ||