Get Current Year from Date using Excel VBA Functions

Get Current Year from Today’s Date using Excel VBA Functions. Year plays an important major role as part of date. It helps in data analysis to summarize data, create graphs and dashboards. We also format year using format function in two ways either two year digit(xx) or four year digit(xxxx).

Table of Contents:

Objective
Macro1: VBA Current Year from specified date
Macro2: VBA Current Year from today’s date
Format Name of the Year
Instructions to Run VBA Macro Code
Other Useful Resources

VBA Current Year from specified Date:

Let us see the procedure how to get name of the year from today’s date using Year and DateAdd function.

'Procedure to find Current Year From specified Date
Sub VBA_Current_Year_From_Specified_Date()
    
    'Variable declaration
    Dim iYear As Integer
    
    'Retrieve Year from date
    iYear = DateAdd("y", 0, Year("01/01/2018"))
    'or
    iYear = Year("01/01/2018")

    'Display Year
    MsgBox "If specified date is '01/01/2020' then" & vbCrLf & _
    "current Year is : " & iYear, vbInformation, "Current Year From Date"
    
End Sub

Here is the output screen shot of the above macro procedure.

VBA Current Year from Today’s Date:

Let us see the procedure how to get name of the year from today’s date using Date, Year and DateAdd functions.

'Procedure to find Current Year From todays Date
Sub VBA_Current_Year_From_Todays_Date()
    
    'Variable declaration
    Dim sYear As Integer
    
    'Retrieve Year from date
    sYear = DateAdd("y", 0, Year(Date))
    'or
    sYear = Year(Date)

    'Display Year
    MsgBox "If today's date is " & Date & " then" & vbCrLf & _
    "current year is : " & sYear, vbInformation, "Current Year From Date"
    
End Sub

Let us see the output screenshot of the above macro procedure for your reference.

Explanation: In the above procedures you can see Date, Year and DateAdd VBA functions. Here date displays date. Year function helps to display year from date.

Format Year of date:

We have different format methods to format year. You can find output in an immediate window.

'Format Year from date
Sub VBA_Format_Year()
    
    'Variable declaration
    Dim iYear As Integer
        
    iYear = Format("01/01/2018", "yy")
    Debug.Print iYear
    
    iYear = Format("01/01/2018", "yyyy")
    Debug.Print iYear
        
End Sub

Output screenshot: Here is the output screenshot.