Миф excel миф date

This tutorial will demonstrate how to get today’s date in VBA.

There are a couple of ways to obtain today’s date in VBA code, namely using the VBA Date() function or the VBA Now() functions.

Date() function

The Date() Function returns today’s date. In the example below, we assign today’s date to a variable and then display the date in the immediate window in the VBE Editor.

  Dim dtToday as Date
  dtToday = Date()
  Debug.Print dtToday

Alternatively, we can display the date in a message box.

Sub TestDate
  Dim dtToday as Date
  dtToday = Date()
  Msgbox "Today's date is " & dtToday
End Sub

Now() Function

The Now() Function works in the same way as the date function, but it includes the time.

Sub TestDate()
  Dim dtToday As Date
  dtToday = Now()
  MsgBox "Today's date is " & dtToday
  End Sub

Formatting Dates with VBA

In both the Date() and the Now() functions, the date is formatted in a default style as determined  by the settings on our PC.  We can customize this formatting using the VBA Format function.  As the format function will return a string, we need to declare a STRING variable rather than a DATE variable.

Sub TestDate()
   Dim dtToday As String
   dtToday = Format (Date, "dd mmmm yyyy")
   MsgBox "Today's date is " & dtToday
End Sub

We can also format the Now() function to include the time portion in a customized format.

Sub FormatNow()
  Dim dtToday As String
  dtToday = Format(Now(), "dd mmmm yy hh:mm:ss am/pm")
  MsgBox dtToday
End Sub

Comparing 2 Dates with VBA

We can also use the Date function to compare today’s date with a different date – we might want to calculate how many days there are until an event!  We can do this using the VBA DateDiff()  function which will return a number.  We can therefore declare an INTEGER variable to store the returned value in.

Sub TestDateDiff()
 Dim dtToday As Date
 Dim dtSomeDay As Date
 Dim iDays As Integer
 dtToday = Date
 dtSomeDay = "05/06/2021"
 iDays = DateDiff("d", dtToday, dtSomeDay)
 MsgBox "There are " & iDays & " days between the 2 dates"
End Sub

As Dates are stored as numbers, we could also minus the second date from the first to obtain the same answer.

iDays = dtToday - dtSomeDay

Excel VBA Date

There are some functions which are really very handy, and we choke our life without those functions being a VBA user. DATE function is one of those functions which can be really very useful at times and can make life easier for a programmer. In an Excel spreadsheet, there is a function called TODAY() which gives the current date as a result based on the system date. On similar lines, VBA has DATE function which gives current date based on the system date.

The VBA DATE function returns the current date based on system date as a result and has really very simple syntax.

This function does not have any argument to be passed comes with the name of the function and empty parentheses. It is not mandatory to add the parentheses as well while calling this function. Isn’t this function really simple in nature?

The syntax of DATE function in VBA.

How to Use Excel VBA Date Function?

We will learn how to use a VBA Date function with few examples in excel.

You can download this VBA Date Excel Template here – VBA Date Excel Template

VBA Date Function – Example #1

Suppose, you wanted to see the current date in MsgBox. How can you do that? Just follow the steps below and you’ll be through.

Step 1: Insert a new module in your Visual Basic Editor.

Step 2: Define a sub-procedure to write create and save a macro.

Code:

Sub DateEx1()

End Sub

Step 3: Define a variable named CurrDate which can hold the value of the current date. Since, we are about to assign a date value to the variable, make sure you are defining it as a date.

Code:

Sub DateEx1()

Dim CurrDate As Date

End Sub

Step 4: Using the assignment operator, assign a value of the current system date to the variable newly created. You just need to add DATE in order to assign the date value. Use the following piece of code:

Code:

Sub DateEx1()

Dim CurrDate As Date

CurrDate = Date

End Sub

Step 5: Use MsgBox to be able to see the current system date under Message Box prompt. Use the line of code given below:

Code:

Sub DateEx1()

Dim CurrDate As Date

CurrDate = Date

MsgBox "Today's Date is: " & CurrDate

End Sub

Step 6: Hit F5 or run button manually to Run this code. You’ll be able to see a Message Box as shown in below screenshot with the current date.

Note that, the date shown here in the screenshot is the date I have run this script at. You may be getting a different date at the time you run this code, based on your system date.

This is the simplest example of getting the current date. You can also use Cells.Value function to get the date value in a particular cell of your excel sheet.

VBA Date Function – Example #2

Home Loan EMI payment due date

Suppose I have a worksheet and I need a system to show me a message “Hey! You need to pay your EMI today.” Every time I open my sheet and the value in cell A1 is the current system date. Let’s see step by step how we can do that.

Step 1: Insert a new module and define a new sub-procedure named auto_open() to create a macro. auto_open() allows your macro to run automatically every time you open the worksheet.

Code:

Sub auto_open()

End Sub

Step 2: Use If condition to assign the value of the current date in cell A1 of worksheet HomeLoan_EMI.

Code:

Sub auto_open()

If Sheets("HomeLoan_EMI").Range("A1").Value = Date

End Sub

Step 3: Now, use Then on the same line after IF so that we can add a statement which will execute as long as if-condition is true.

Code:

Sub auto_open()

If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then

End Sub

Step 4: Add a statement to be executed for the condition which is true.

Code:

Sub auto_open()

If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then

MsgBox ("Hey! You need to pay your EMI today.")

End Sub

This statement will pop-up under Message Box as soon as the If a condition is true.

Step 5: As we know, every IF condition always needed an Else condition. Add an Else condition to this loop.

Code:

Sub auto_open()

If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then

MsgBox ("Hey! You need to pay your EMI today.")

Else

Exit Sub

End Sub

This else condition will terminate the automatic opening of Macro if a date in cell A1 is not the current system date.

Step 6: Finally, End the IF loop by using statement End IF.

Code:

Sub auto_open()

If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then

MsgBox ("Hey! You need to pay your EMI today.")

Else

Exit Sub

End If

End Sub

Step 7: This is it, now every time you open your worksheet the system will automatically run the above code and see if the date value in cell A1 is your EMI due date or not. If the EMI due date equals to the system date, it will show the message as below:

VBA Date Function – Example #3

VBA Date to Find out the Credit Card Bill Payee

Suppose I have a list of customers who have a credit card and you want to know who has payment due today. So that you can call them and ask them to pay their due immediately by EOD.

VBA Date could be handy in allowing you to automate the things instead of checking the dates one by one. Let’s see how to do this step by step:

Step 1: Define a New macro using a sub-procedure under a module.

Code:

Sub DateEx3()

End Sub

Step 2: Define two new variables one of which will be useful in looping the code up and another one in order to hold the value of the current system date.

Code:

Sub DateEx3()
Dim DateDue As Date
Dim i As Long
DateDue = Date
i = 2
End Sub

Step 3: Now use the following piece of code which helps in searching the person who has a credit card bill due date as the current system date. This code allows checking the Customer who has bill payment due on the current system date along with the bill amount.

Code:

Sub DateEx3()
Dim DateDue As Date
Dim i As Long
DateDue = Date
i = 2
For i = 2 To Sheets("CC_Bill").Cells(Rows.Count, 1).End(xlUp).Row
If DateDue = DateSerial(Year(DateDue), Month(Sheets("CC_Bill").Cells(i, 3).Value), 
Day(Sheets("CC_Bill").Cells(i, 3).Value)) Then
MsgBox "Customer Name : " & Sheets("CC_Bill").Cells(i, 1).Value & vbNewLine 
& "Premium Amount : " & Sheets("CC_Bill").Cells(i, 2).Value
End If
Next i
End Sub

Step 4: Run this code by hitting F5 or Run button manually and see the output.

On the first iteration, we can see that Mohan is the one who has Bill of 12,900 due on 29-Apr-2019 (Current system date on which this code is run). If we hit OK, we can see the next customer name who has a bill due on 29-Apr-2019 (Rajani is the next).

This code will really be handy when you are having millions of rows of customers who have their bill due on one particular day. Please note that all the scripts mentioned in this article are run on 29-Apr-2019. You might get different date value when you run this sample codes based on the system date.

Things to Remember

• VBA DATE function returns the current system date and as parallel to Excel’s TODAY() function.
• VBA DATE function does not have any argument to be passed in excel. Doesn’t even need the parentheses to be called while using this function in the code.
• VBA DATE is a non-volatile function in excel.
• VBA stores Date values as DATE at the time of execution. So, does not define a variable holding value as a String/Integer. It will cause an error during execution of the code.

Recommended Articles

This has been a guide to Excel VBA Date. Here we have discussed how to use Excel VBA Date Functions along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA Date Format
2. VBA GoTo
3. VBA RGB
4. VBA DateSerial

VBA Date is a Date and Time function. Therefore, it returns only the current date as per your system date. Also, the important thing to note is that this function has no arguments whatsoever. Therefore, another important factor is that this function returns the current system date.

In Excel, we cannot live without some of the functions, and “VBA Date” is one of those functions. In addition, if you are a frequent user of an Excel worksheet, then you must be aware of a function called “TODAY (),” which will return the current date as per the system date.

The Date function is simple. It returns only the current date per the system date you are using. It works similar to our worksheet function “TODAY” but not volatile in nature.

The syntax of the excel DATE functionThe date function in excel is a date and time function representing the number provided as arguments in a date and time code. The result displayed is in date format, but the arguments are supplied as integers.read more is very simple because it has no argument to supply and includes only empty parenthesis.

Date ()

Parenthesis is available to explain the function when you use the function. No need to enter parenthesis.

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Date Function (wallstreetmojo.com)

How to use Excel VBA Date Function?

You can download this VBA Date Excel Template here – VBA Date Excel Template

Example #1

Assume you want to insert the current date in cell A1 then follow the below steps to write the code to insert the current date in cell A1.

Step 1: Create a macro name.

Code:

Sub Date_Example1()

Step 2: Since we need to store the current date in cell A1 our code will be Range (“A1”).Value.

Code:

Sub Date_Example1()
Range("A1").Value
End Sub

Step 3: In cell A1 we need the current date, so use the Date function.

Code:

Sub Date_Example1()
Range("A1").Value = Date
End Sub

Step 4: We have completed it now. Let us run this code now by pressing the F5 key, or we can also run the code manually, as shown in the below screenshot. We will get the current date in cell A1.

So, when writing the code, the current date in the system is “15th March 2019.”

Note: The format of your date depends on your windows settings. Anyway, you can change the format of the date under format cells.

Example #2

Assume you are a LIC agent and have several customers to deal with. One of the key objects is to know whose payment is due today so that you can call them and collect the payment immediately.

Assume below the list of customers you have in the database.

We have already written a code that will notify us as soon as we open the Excel file.

Code:

Sub Due_Notifier()
  Dim Duedate As Date
  Dim i As Long

  Duedate = Date
  i = 2

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If Duedate = DateSerial(Year(Date), Month(Cells(i, 3).Value), Day(Cells(i, 3).Value)) Then
    MsgBox "Customer Name : " & Cells(i, 1).Value & vbNewLine & "Premium Amount : " & Cells(i, 2).Value
  End If
Next i

End Sub

Please copy the above code and paste it into the VBA module.

Now, double-click on the “This Workbook” option.

Now, select “Workbook” from the above dropdown.

When you select the option “Workbook,” you can see a private macro automatically opens.

Here, the macro name says “Workbook_Open ()”; whenever this workbook opens, what you have to do. Whenever this workbook opens, we need to run the macro we have created.

So, here we need to call the macro we have created by its name. For example, in the above code, our macro name is “Due_Notifier.”

Code:

Call Due_Notifier

Now save this workbook and close it.

After closing it, open the workbook and see the magic.

Now, we will open.

It shows the customer’s name and due amount for the current date.

The “Customer Name” is “Amar,” and the due amount is “20,883”. It is showing this customer name because the due date for Mr. Amar is 15th March 2019, i.e., today.

Now, click on “OK.” It will show other customer names if the due date is on today.

It shows Mr. Arvind’s name; his due date is also 15th March 2019.

You can easily identify the customer names as soon as you come to the office. One of the big headaches is gone.

Similarly, we have created one more excel macroA macro in excel is a series of instructions in the form of code that helps automate manual tasks, thereby saving time. Excel executes those instructions in a step-by-step manner on the given data. For example, it can be used to automate repetitive tasks such as summation, cell formatting, information copying, etc. thereby rapidly replacing repetitious operations with a few clicks.
read more, to send auto birthday emails from your Outlook.

Example #3

Assume you are in an “Employee Engagement Team,” and you are responsible for sending birthday emails to your employees. Unfortunately, identifying and sending the email to everyone separately is a painful job.

Hello, my dear friend, don’t worry. We have created a macro for you to send the auto birthday emails to your employees.

We have created some data to test. Below is the image of the same.

We must update the employee master according to the table’s headings. Below is the code to send the emails.

Please copy the below code and paste it into the module.

Sub Birthday_Wishes()

Dim OutlookApp As Outlook.Application
Dim OutlookMail As Outlook.MailItem
Dim Mydate As Date
Dim i As Long

Set OutlookApp = New Outlook.Application
Mydate = Date
i = 2

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set OutlookMail = OutlookApp.CreateItem(olMailItem)

If Mydate = DateSerial(Year(Date), Month(Cells(i, 5).Value), Day(Cells(i, 5).Value)) Then
OutlookMail.To = Cells(i, 7).Value
OutlookMail.CC = Cells(i, 8).Value
OutlookMail.BCC = ""
OutlookMail.Subject = "Happy Birthday - " & Cells(i, 2).Value
OutlookMail.Body = "Dear " & Cells(i, 2).Value & "," & vbNewLine & vbNewLine & _
"We wish you a happy birhday on behalf of the management and we wish all the success in the coming future" & vbNewLine & _
vbNewLine & "Regards," & vbNewLine & "StrIDE Team"
OutlookMail.Display
OutlookMail.Send

End If
Next i

End Sub

Open the file and run this code when you come to the office. It will automatically send birthday wishes to the respective email IDs.

Note: You should have Outlook configured in your system.

Recommended Articles

This article is a guide to VBA Date Function. Here, we learn how to use VBA’s Date function and some simple to advanced examples. We also saw one of the projects where we created one macro that sends auto birthday emails from your Outlook. Below are some useful Excel articles related to VBA: –

• DateSerial in VBA
• VBA Select Case
• CDATE Function in VBA
• VBA Send Email from Excel