Add years to date
To add years to a date you can apply the Excel DATE function
Example: Add years to date
|
This formula adds five (5) years to the date specified in cell (C5). This formula links to specific cells in the worksheet for the formula parameters, however, you can also enter the number of years you want to add and the date that you want to add the years to directly into the formula (e.g. =DATE(YEAR("15/03/2017")+5,MONTH("15/03/2017"),DAY("15/03/2017"))).
|
Sub Add_years_to_date()
'declare a variable
Dim ws As Worksheet
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
Set years = ws.Range("B5")
Set sdate = ws.Range("C5")
Set years = ws.Range("B5")
Set sdate = ws.Range("C5")
'add the specified number of years to the date
ws.Range("D5") = DateAdd("yyyy", years, sdate)
ws.Range("D5") = DateAdd("yyyy", years, sdate)
End Sub
OBJECTS
Worksheets: The Worksheets object represents all of the worksheets in a workbook, excluding chart sheets.
Range: The Range object is a representation of a single cell or a range of cells in a worksheet.
Worksheets: The Worksheets object represents all of the worksheets in a workbook, excluding chart sheets.
Range: The Range object is a representation of a single cell or a range of cells in a worksheet.
PREREQUISITES
Worksheet Name: Have a worksheet named Analysis.
Years to add: This example references to cell ("B5") to source the number of years to add onto the date. Therefore, if using the same VBA code cell ("B5"), in the Analysis worksheet, must be populated with the value that represents the number of years you want to add to the date. You can also enter the number of years you want to add directly into the VBA code by replacing the cell reference (ws.Range("B5")) with the number of year.
Date: This example references to cell ("C5") to source the date that you want to add the years onto. Therefore, if using the same VBA code cell ("C5"), in the Analysis worksheet, must be populated with the date that you want to add the years onto. You can also enter the date directly into the VBA code by replacing the cell reference (ws.Range("C5")) with the date inside the double quotation marks (e.g. "15/03/2017").
Worksheet Name: Have a worksheet named Analysis.
Years to add: This example references to cell ("B5") to source the number of years to add onto the date. Therefore, if using the same VBA code cell ("B5"), in the Analysis worksheet, must be populated with the value that represents the number of years you want to add to the date. You can also enter the number of years you want to add directly into the VBA code by replacing the cell reference (ws.Range("B5")) with the number of year.
Date: This example references to cell ("C5") to source the date that you want to add the years onto. Therefore, if using the same VBA code cell ("C5"), in the Analysis worksheet, must be populated with the date that you want to add the years onto. You can also enter the date directly into the VBA code by replacing the cell reference (ws.Range("C5")) with the date inside the double quotation marks (e.g. "15/03/2017").
ADJUSTABLE PARAMETERS
Output Range: Select the output range by changing the cell reference ("D5") in the VBA code to any cell in the worksheet, that doesn't conflict with the formula.
Years to add: Select the number of years that you want to add to the date by changing the value in cell ("B5") in the Analysis worksheet.
Date: Select the date that you want to add the years onto by changing the date in cell ("C5") in the Analysis worksheet.
EXPLANATION
To add years to a date you can apply the Excel DATE function. In this tutorial we explain how this can be achieved by using Excel and VBA.
To add years to a date you can apply the Excel DATE function. In this tutorial we explain how this can be achieved by using Excel and VBA.
FORMULAS
=DATE(YEAR(date)+number_of_year,MONTH(date),DAY(date))
=DATE(YEAR(date)+number_of_year,MONTH(date),DAY(date))
ARGUMENTS
date: The date that you want to add the years onto.
number_of_year: Number of years to add to the date.