Day()
Brian Element
Syntax: Day(DateValue as Date) as integer
Day(date) Returns a value 1–31 representing the day of the month
Parameter: The DateValue must be a valid date.
Script
Sub Main
Dim strDate As Date
MsgBox Day(Now()) ' returns the current day
strDate = #12/01/2013#
MsgBox day(strDate) ' returns 12
End Sub