Calculate Month & Quarter End Dates

You would think there would be an easy way to calculate a Month End Date or a Quarter End Date, taking into account leap years, in VB. But there isn't. This class module has methods to return the next calendar day, current or next month end date and current or next quarter end dates. All you need to do is add it to your project.

Download Source Code

This class module has a few basic methods. IsLeapYear returns True if the input year is a leap year. It checks to see if the year is divisible by 4, 100 as well as 400.

MonthEnd takes a date and returns the current month end date. If the date supplied is the month end then it will either return that date or the following month end date depending on the Skip Month End parameter.

QuarterEnd acts the same way. NextDay simply returns the date of the following day crossing month and year boundaries.

These routines are nothing fancy, they just fill a void in VB's built in functions.

To run the sample, enter a valid date then hit the Get Dates button. If the date you enter is in the middle of the month, you will get the current month end date. If it is the month end date, you will get the next month end date.