Visual Basic Date and Time Function : Date , Date$

Purpose : The Date function returns the current system date as a date data type and the Date$ function returns the current system data as a string.

Syntax :
Date
Date$

Possible returned setting of the Date$ function

Date Setting Range

Month (mm) a number between 01 and 12 inclusive

Day (dd) a number between 01 and 31 inclusive

Year (yyyy) a year between 0100 and 9999 inclusive

Option Explicit

Private Sub Form_Load()
Dim Msg$
'default message: date as string
Msg$ = "Today's date is : " & Date
'compare date literal
If Date = #9/20/2010# Then
'display date as date data type
Msg$ = "Today is then Twenty of September : " & Date
'compare part of date
ElseIf Format(Now, "dd-mm") = "25-12" Then
'display formatted date as string
Msg$ = " Today is Christmas : " & Format(Now, " dd-mm-yyyy")
End If
'display result
MsgBox Msg$
End Sub