Date Functions VisualBasic Script

Sub dateFunctions2()
   Debug.Print "The quarter part is: " & DatePart("q", Now)
End Sub