Date[$]
Time/Date
Return today's date as a date value.
See Also: Now, Time, Timer.
Sub Main Debug.Print Date ' example: 1/1/1995 End Sub