Calculate Quarters Between two Dates in Excel VBA

Calculate Quarters Between two Dates

Calculate Quarters Between two Dates in Excel VBA using VBA formulas. We use DateDiff VBA Function to determine the number of Quarters between two dates. In order to calculate number of Quarters between two dates we need start date and end date. It returns an integer value as a result.

Macro to Calculate Number of Quarters Between two Dates in Excel VBA

Let us see the macro to count number of quarters Difference Between two Dates in Excel VBA.

'Calculate Quarters Between two Dates in Excel VBA
Sub VBA_Calculate_Quarters_Between_Two_Dates()
    
    'Variable declaration
    Dim sDate As Date, eDate As Date
    Dim iValue As Integer
    
    'Start Date
    sDate = "10-Jan-2020"
    
    'End Date
    eDate = "10-Jul-2020"
    
    iValue = DateDiff("q", sDate, eDate)
    
    'Display output on the screen
    MsgBox "The number of quarters between two dates : " & iValue, vbInformation, "Quarters Between Two Dates"
    
End Sub

Here is the output screen shot of above macro.
Calculate Quarters Between two Dates

Instructions to Run VBA Macro Code or Procedure:

You can refer the following link for the step by step instructions.

Instructions to run VBA Macro Code

Other Useful Resources:

Click on the following links of the useful resources. These helps to learn and gain more knowledge.

VBA Tutorial VBA Functions List VBA Arrays VBA Text Files VBA Tables

VBA Editor Keyboard Shortcut Keys List VBA Interview Questions & Answers Blog

Leave a Comment