Excel vba добавить дату

The DateAdd function is categorized under the Date and Time function in VBA. This function has an output value as a date. In addition, it takes input as a date format and adds it to the current date to return a new date. The syntax for this function takes three arguments: interval, number, and date.

Using the DateAdd function, we can add and subtract days, months, and years from the given date. The date in Excel is part and parcel of our daily work. We cannot work in Excel without date, time, and other important stuff. The common process is adding one date to another and subtracting one date from another. In the regular worksheet, we do arithmetic operations and get the result. In VBA, we have the function called DateAdd, which will do the job.

Syntax

Interval: Interval is nothing but what kind of value you want to add or subtract. For example, whether you want to add or subtract a month, whether you want to add or subtract days, whether you want to add or subtract a year, whether you want to add or subtract a quarter, etc.

Below is a list of codes and descriptions.

• Number: The number of months, days, or weeks (as provided in the interval) we want to add or subtract to the date.
• Date: The actual date value we are doing the arithmetic operation.

For example, if you have the date “14-Mar-2019” and you want to add two days to the date, use the below code:

DateAdd (“d,” 2, “14-03-2019”)

The result of the above code is: 16-03-2019

How to Use Dateadd Function in VBA?

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

Example #1 – Add Date

To start the proceedings, let’s apply the simple DateAdd function. Assume you are working with the date “14-03-2019”.

Step 1: Start the subprocedure by creating a macro name.

Step 2: Define the variable as Date.

Code:

Sub DateAdd_Example1()

Dim Month As Date

End Sub

Step 3: For this variable, assign a value.

Code:

Sub DateAdd_Example1()
  Dim NewDate As Date

  NewDate =

End Sub

Step 4: Start the DateAdd formula.

Code:

Sub DateAdd_Example1()
  Dim NewDate As Date

  NewDate = DateAdd(

End Sub

Step 5: What is the operation we want to do? We want a day to the date. So the interval is “d.”

Code:

Sub DateAdd_Example1()
    Dim NewDate As Date

   NewDate = DateAdd("d",

End Sub

Step 6: How many days do we need to add? We have to add 5 days.

Code:

Sub DateAdd_Example1()
   Dim NewDate As Date

   NewDate = DateAdd("d", 5,

End Sub

Step 7: Our date is “14-03-2019.”

Code:

Sub DateAdd_Example1()
   Dim NewDate As Date

   NewDate = DateAdd("d", 5, "14-03-2019")

End Sub

Step 8: Show the result of the variable in the VBA message boxVBA MsgBox function is an output function which displays the generalized message provided by the developer. This statement has no arguments and the personalized messages in this function are written under the double quotes while for the values the variable reference is provided.read more.

Code:

Sub DateAdd_Example1()
  Dim NewDate As Date

  NewDate = DateAdd("d", 5, "14-03-2019")
  MsgBox NewDate

End Sub

If we run this code, we should get the date as 19-03-2019.

The system’s date format is “mm-dd-yyyy,” so the result shows as per the system date settings.

However, we can modify this by applying the VBA FORMATThe format function in VBA is used to format the given values into the format that is desired. It can be used to format dates, numbers, and trigonometrical values, among other things.read more function.

Code:

Sub DateAdd_Example1()
  Dim NewDate As Date

  NewDate = DateAdd("d", 5, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

Now, the result should be like this: “19-Mar-2019.”

Example #2 – Add Months

To add months, below is the code.

Code:

Sub DateAdd_Example2()
  'To add months
  Dim NewDate As Date

  NewDate = DateAdd("m", 5, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

The result will be:

Example #3 – Add Years

To add years using DateAdd, use the below code.

Code:

Sub DateAdd_Example2()
  'To add year
  Dim NewDate As Date

  NewDate = DateAdd("yyyy", 5, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

The Result will be:

Example #4 – Add Quarter

To add quarter, below is the code.

Code:

Sub DateAdd_Example2()
  'To add quarter
  Dim NewDate As Date

  NewDate = DateAdd("Q", 5, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

The Result will be:

Example #5 – Add Weekday

To add weekdays, below is the code.

Code:

Sub DateAdd_Example2()
  'To add weekdays
  Dim NewDate As Date

  NewDate = DateAdd("W", 5, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

The Result will be:

Example #6 – Add Week

To add a week, below is the code.

Code:

Sub DateAdd_Example2()
  'To add Week
  Dim NewDate As Date

  NewDate = DateAdd("WW", 5, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

The Result will be:

Example #7 – Add Hour

To add the hour, below is the code.

Code:

Sub DateAdd_Example2()
  'To add hour
  Dim NewDate As Date

  NewDate = DateAdd("h", 5, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy hh:mm:ss")

End Sub

The Result will be

Example #8 – Subtract Date

To add, we have supplied positive numbers. To subtract, we need to supply negative numbers that are all.

To subtract 3 months from the supplied date, below is the code.

Code:

Sub DateAdd_Example3()
  'To add hour
  Dim NewDate As Date

  NewDate = DateAdd("m", -3, "14-03-2019")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

The result of this code is:

We deduct 3 months from the date 14th March 2019. So, it will return to the previous year.

Recommended Articles

This article is a guide to the VBA DateAdd Function. Here, we learn how to use the VBA DateAdd function to add and subtract days, months, and years from the given date, along with practical examples and a downloadable Excel template. Below you can find some useful Excel VBA articles: –

• VBA Case Statement Examples
• Weekday in VBA
• VBA Select Case
• DateSerial in VBA

Excel VBA DateAdd

VBA DateAdd is a function which performs addition or subtraction of time/date intervals. This will return date by adding or subtracting a specified time interval. It is quite difficult to deal with date and time when you do some calculations on it. But in our daily work, it is an essential type of data that we may use. Comparison, addition, subtraction between different dates are some familiar operations that we do.

Formula For DateAdd function in Excel VBA

The formula for VBA DateAdd function is very simple in format.

Let’s see what are the parameters used in the Excel VBA DateAdd function.

• Interval: This can be a time/date interval that you want to add or subtract. This represents what kind of value you wish to add or subtract. This can be a component of date or time like days, month, etc. The scope of intervals is given below.

• Number: Is the number of intervals you want to add. Use a positive number to add the interval with the given date and negative value to subtract the interval from the date.
• Date: The date to which you want to add/subtract the interval. Operations will be performed on this date and return date as output.

Examples of Excel VBA DateAdd Function

Below are the different examples of DateAdd Function in Excel VBA:

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

Example #1 – Add Date

Let’s see how to add a particular number with the given date using VBA DateAdd Function.

• We need to find the date after adding ’10’ days with the date ‘25/10/2015’
• Start sub procedure with a name. Here we created a sub procedure named ‘adddate’.

Code:

Sub adddate()

End Sub

• Create a variable as date datatype, variable name is currentdate.

Code:

Sub adddate()

Dim currentdate As Date

End Sub

• We are going to store the result in this variable currentdate.
• We want to add ‘10’ days with ‘25/10/2015’. So the number of days want to add is 10. And the interval is ‘d’ and the number is 10.
• So let’s apply the VBA DateAdd function as below.

Code:

Sub adddate()

Dim currentdate As Date
currentdate = DateAdd("d", 10, "25/10/2015")

End Sub

• After applying the formula to the variable let’s use a message box to print the result.

Code:

Sub adddate()

Dim currentdate As Date
currentdate = DateAdd("d", 10, "25/10/2015")
MsgBox Format(currentdate, "dd-mm-yyyy")

End Sub

• Run the code by pressing F5. The result will be shown as

You can see the result as shown above.

Example #2 – Add Months

• To add months with the given date the interval needs to change as “m”.
• Add ‘2’ with the date “15/2/2017”. The code can be written as below.

Code:

Sub addmonth()

Dim currentdate As Date
currentdate = DateAdd("m", 2, "15/2/2017")
MsgBox Format(currentdate, "dd-mm-yyyy")

End Sub

• The output date will be changed as below.

Example #3 – Add Year

To add years with the given date the below code can be used.

• The interval should be” yyyy”
• Add 4 years with’20/2/2018’

Code:

Sub addyear()

Dim currentdate As Date
currentdate = DateAdd("yyyy", 4, "20/2/2018")
MsgBox Format(currentdate, "dd-mm-yyyy")

End Sub

• The result will be as below. The variable currentdate will return ‘20/2/2022’

Example #4 – Add Quarter

• While adding quarter, three months will be added to the date since the quarter if 12 months is 3.
• The interval should be mention as “Q”, the number given in the formula specifies how many quarters should be added. For example, DateAdd(“Q”,2, ”22/5/2019”) number of quarters is 2 so 6 months will be added.
• To add 2 quarters with ‘22/5/2018’ below code can be used.

Code:

Sub addquarter()

Dim currentdate As Date
currentdate = DateAdd("Q", 2, "22/5/2019")
MsgBox Format(currentdate, "dd-mm-yyyy")

End Sub

• The result will be as below.

Example #5 – Add Seconds

• You can add time along with date displayed. To get this mention the interval as “s” which indicates seconds.
• To display five seconds with date ‘28/3/2019’ can use the below formula.

Code:

Sub addseconds()

Dim currentdate As Date
currentdate = DateAdd("s", 5, "28/3/2019")
MsgBox Format(currentdate, "dd-mm-yyyy hh:mm:ss")

End Sub

• While showing the output with date seconds will be displayed.

Example #6 – Add Weeks

• To add a number of weeks with the given date, use the interval as “WW”
• Code to find the date after the given number of weeks from’27/03/2016’

Code:

Sub addweek()

Dim currentdate As Date
currentdate = DateAdd("WW", 2, "27/3/2019")
MsgBox Format(currentdate, "dd-mm-yyyy")

End Sub

• The output will be the date after 2 weeks.

Example #7 – Add Hours

• To get a particular time with a date this is used.
• In interval mention the “h” and also change the format of the output.
• The code to get the hours printed with a date is.

Code:

Sub addhour()

Dim currentdate As Date
currentdate = DateAdd("h", 12, "27/3/2019")
MsgBox Format(currentdate, "dd-mm-yyyy hh:mm:ss")

End Sub

• The result will be shown with time in hh:mm:ss.

Example #8 – How to Subtract Weeks using VBA DateAdd Function?

Similar to addition, subtraction can also perform using VBA DateAdd function. The numbers specified as positive integers along with the formula. To perform subtraction, use these numbers as negative integers. For example, change the formula as below.

DateAdd (interval, - number, date)

By using the above method will try to find the day subtracting three weeks from ‘28/3/2019’

• Create a subprocedure as subdate.

Code:

Sub subdate()

End Sub

• Define a variable to store the result. Currentdate is a variable as date type to assign the final result.

Code:

Sub subdate()

Dim currentdate As Date

End Sub

• To subtract three weeks from ‘28/3/2019’ will apply the formula. DateAdd(“ww”, -3, “28/3/2019”)

Code:

Sub subdate()

Dim currentdate As Date
currentdate = DateAdd("ww", -3, "28/3/2019")

End Sub

‘-3’ indicates the subtraction “ww” is the interval since we want to operate on weeks.

• The formula is applied and the result is stored in currentdate.

Code:

Sub subdate()

Dim currentdate As Date
currentdate = DateAdd("ww", -3, "28/3/2019")
MsgBox Format(currentdate, "dd-mm-yyyy")

End Sub

• The result after subtracting three weeks from the given date is displayed below.

Things to Remember

• The interval and date mentioned in the formula will be given within a double quotation.
• If you use weekdays interval” w” it will work similarly to the interval day “d” since the weekday calculates 1=Sunday, 2=Monday, etc. in So it will count the holidays even you use weekdays.
• The out will be displayed according to the date format settings on your system. Use format along with a message box to print the result in the format you want.
• Within the VBA DateAdd function use the number as negative to perform subtraction among dates.

Recommended Articles

This is a guide to Excel VBA DateAdd Function. Here we discuss the examples of VBA DateAdd function to add & subtract days, months & years from the given date along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA Date
2. VBA Date Format
3. VBA Time
4. VBA DatePart