FormatDateTime(Now, vbGeneralDate)
Sub dateFunctions() Debug.Print "vbGeneralDate: " & FormatDateTime(Now, vbGeneralDate) End Sub