Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Day(date) returns a VariantInteger between 1 and 31, inclusive, representing the day of the month for date

Sub dateDemo5()    If Day(Date) = 1 And Month(Date) = 1 Then MsgBox "Happy new year!" End Sub