VBA DATE Function

VBA DATE Function

Objective of the VBA Date Function:

The VBA Date function is a built-in function in MS Excel. It does not take any input arguments or parameters. It returns the current system date.  It is a ‘Data and Time’ type function. Default format of the Date function is ‘mm/dd/yyyy’. The VBA Date function can be used in either procedure or function in a VBA editor window in Excel. We can use the VBA date function any number of times in any number of procedures or functions. In the following section we learn what is the syntax and parameters of the date function, where we can use this VBA date function and real-time examples.

Table of Contents

Syntax of VBA Date Function:

The syntax of the VBA Date function is

Date()

In the above syntax parentheses is optional. If there is no argument, then no need to specify parentheses.

Parameters or Arguments:

There are no parameters or arguments for the Date function.

Where we can apply or use the Date Function?

We can use this VBA date function in MS Office 365, MS Excel 2016, MS Excel 2013, 2011, Excel 2010, Excel 2007, Excel 2003, Excel 2016 for Mac, Excel 2011 for Mac, Excel Online, Excel for iPhone, Excel for iPad, Excel for Android tablets and Excel for Android Mobiles.

Example 1: Display current system date on the screen

Here is a simple example of the VBA Date function. This below example macro uses the Date function and displays the current system date.

Sub VBA_Date_Function_Ex1()
'Display Current System Date on the screen

'Variable declaration
Dim sCurrentDate As Date

'Assign current system date to variable
sCurrentDate = Date
MsgBox sCurrentDate, vbInformation, "Current System Date"
End Sub

In the above example ‘sCurrentDate’ declared as a Date data type. This variable ‘sCurrentDate’ now contains the current system date.

Output:

Here is the screen shot of first example output.

VBA DATE Function Example 1

 

Example 2: Display current system date on the Worksheet

Here is another example of the VBA Date function. This below example macro uses the Date function and displays the current system date on the Worksheet named ‘VBAF1.Com’ in Range ‘B18’.

Sub VBA_Date_Function_Ex2()
'Display Current System Date on the Worksheet

'Variable declaration
Dim sCurrentDate As Date

'Assign current system date to variable
sCurrentDate = Date
Sheets("Sheet1").Range("B18") = sCurrentDate
'Or
'Sheets("Sheet1").Cells(18, 2) = sCurrentDate
End Sub

Output:

Here is the screen shot of second example output.
VBA DATE Function Example 2

 

Example 3: Change Date Format

Here is one more example with VBA Date function. This below example macro uses the Date function and changes the format of the date. Finally, it displays the current system date on the screen.

Sub VBA_Date_Function_Ex3()
'Format and Display Current System Date on the screen

'Variable declaration
Dim sCurrentDate As Date

'Assign current system date to a variable
sCurrentDate = Date
MsgBox Format(sCurrentDate, "DD/MMMM/YYYY"), vbInformation, "Current System Date"
End Sub

Output:
Here is the screen shot of third example output.
VBA DATE Function Example 3

Instructions:

Here are the instructions to use the VBA DATE function in Excel

  1. Open an Excel workbook.
  2. Press Alt+F11 to open VBA Editor window.
  3. Go to Insert menu and click on module from the available options.
  4. Insert above specified macro example.
  5. Select code and click on ‘Run’ command or use Keyboard shortcut ‘F5’.
  6. Ex1-Output: It displays current system date on the screen.
  7. Ex2-Output: It displays current system date on the Worksheet in Rage A1.
  8. Ex3-Output: It displays current system date on the screen.
  9. Note: Difference between first output and second output is format of the date.

Download File:

Click on following link to download free example excel workbook to learn more about Date function in VBA.

VBA Date Function Example

List of VBA Functions:

Please click on below link to go back to see all List of VBA Functions.
List of VBA Functions

Leave a Comment

Your email address will not be published. Required fields are marked *