Calculating the end of the month

[mastermind]

I have a sheet that needs to be able to alternate between the 15th and
last day of each month. The user will enter a start date, and I need
the code to start at this point and jump to the next date. Example:


Start date: 01/15/06
run code
date: 01/31/06
run code
date: 02/15/06
run code
date: 02/28/06

and so on. Can anyone help me with this problem? Thank you.

 

[Jake Marx]

Hi mastermind,

The first of next month can be determined by getting the "0" day for the
next month. Here's a function that should work for you. Just pass in the
current date, and it will return the next date:

Public Function gdtGetNextPeriodEnd(rdtCurrentPeriodEnd _
As Date) As Date
If Day(rdtCurrentPeriodEnd) = 15 Then
gdtGetNextPeriodEnd = DateSerial(Year( _
rdtCurrentPeriodEnd), Month(rdtCurrentPeriodEnd) _
+ 1, 0)
Else
gdtGetNextPeriodEnd = DateSerial(Year( _
rdtCurrentPeriodEnd), Month(rdtCurrentPeriodEnd) _
+ 1, 15)
End If
End Function

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]