Day (dates) 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