|
| |
| ||||||||||||||||||
Purpose
Returns the day of the month (1-31) for any valid date expression.
Syntax
Day (DateExpression)
Example
Sub Main()
Dim d As Date
Dim daynum As Integer
d = Today
daynum = Day(d)
Select Case daynum
Case 1, 21, 31
Print "Today is the "; daynum; "st of the month"
Case 2, 22
Print "Today is the "; daynum; "nd of the month"
Case 3, 23
Print "Today is the "; daynum; "rd of the month"
Case Else
End Select
End Sub
| ||